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1.0 ABSTRACT 


This diagnostic has two starting addresses: 


200 standard tolerances 
204 restart : 
210 tighter tolerances for the option test area's burn in. 


This diagnostic tests the ADV11 with or without the BERG test 
connector. 


when starting the diagnostic, a set of tests is listed and this 
statement is printed out: ‘Type the letter and carriage return 
of the desired test:’'. The following chart indicates which 
letter corresponds to which test: 


Ww: The entire Wraparound test (requires BERG test connector) 


a. Analog subtests 
b. Noise test 

c. Interchannel Settling test 

d. Differential Linearity and Relative Accuracy test 


Calibration test only 

Print values test only 

Logic Subtests only 

Auto test (requires BERG test connector) 


Logic subtests 

Analog subtests 

Noise Test 

Interchannel Settling Test 

Differential Linearity and Relative Accuracy Test 


REQUIREMENTS 


LSI-11 computer with 8K of memory 

1/0 Terminal 

ADV11 Module 

VT55 Terminal supported for graphic output 
BERG test connector 








Storage 

This program uses all 8K of memory and is not ‘‘chainable’' 

8K CPU. The program is ‘‘chainable’’ on 12K or greater CPU. 
program will destroy “absolute loader’’ on an 8K CPU, if ‘W 
‘A’ is selected. 


LOADING PROCEDURE 


Procedure for loading normal binary tapes should be followed. 


STARTING PROCEDURE 


Control Switch Settings 
Standard PDP-11 Format 


Halt on error 

Loop on test 

Inhibit error typeouts 
Halt for VT55 display 
Inhibit iterations 

Bell on error 

Loop -n error 

Loop on test in SWR <7:0> 


200 is the starting address of the diagnostic for standard 
tolerances. 204 is the restart address. 210 is the starting 
address of the diagnostic for the option test area's burn in 
test. 


OPERATING PROCEDURE 


Start the diagnostic at 200 or 210. The program heading and _ the 
fr) 


list of tests available, will be printed out followed by a 
message ‘Type letter and <CR> for test: ''. Then type the letter 
you want, according to the table listed and depress return. If 
started at the option test area's starting address, the program 
will not ask for the test but will run the logic test. 





Two control characters, “A and “C, are set aside for interrupting 
a test and transferring control to either the beginning of the 
diagnostic (“C) or to the ap Dig of the specific tes. which 
was in progress (“*4). During the logic tests while a reset is 
being performed, “C or “A will not be executed until after the 
reset has been completed, therefore continue typing *C or “A 
until it is successful. 


For machines without a hardware switch register, location SWREG 
(176) is used as a software switch register. To modify the 
contents of SWREG, type “G. The program responds with the 
current contents of SWREG and a slash. Type the desired new 
contents of SWREG followed by a carriage return. 


If ‘W'' is typed, the program will type "XX ADV11's FOUND’’. Where 
XX is the number of ADV11's in octal. If the number is greater 
than 1, the test will be run successively on each ADV11. The 
program will run through the analog subtests, the Noise test, the 
Interchannel Settling test, and the Differential Linearity and 
Relative Accuracy test. The BERG test connector is required. 


If 'C’’ is eyeed, the program will run the calibration routine and 
loop on the test until it is calibrated and a carriage return 
typed. If acertain ADV11 is to be calibrated, its status 
register address must be loaded into $BASE (1250), and its vector 
address must be loaded into the low byte of $VECT1 (1244). 


"P’' is typed, the program will run the print values routine 
and will loop on that test until the operator halts it. If a 


certain ADV11 is to be tested, its status register address must 
be loaded into S$BASE (1250), and its vector address must be 
loaded into the low byte of $VECT1 (1244). 


If ‘A’ is typed, the program will execute the logic tests, analog 
tests, noise, settle and differential linearity. At the 
beginning of the test the program will type "XX ADV11'S ‘ 
Where XX is the number of ADV11's in octal. If the number is 
greater than 1 the test will run successively on each ADV11. 


If ‘L'' is typed, the program will execute the logic tests, 
abe rhe, "END PASS'' when it has completed an entire pass. At the 
ginning of the test the program will type ‘XX ADV11'S FOUND"’. 
Where XX is the number of ADV11's in octal. If the number is 
greater than 1, the test will be run successively on each ADV11. 


Inhibiting Auto-Size Feature 


This program will automatically auto-size and test each ADV11_ it 
detects on the system. To inhibit this feature, set bit 15 of 
Location SENVM (1214). Also, load locetion $BASE (1250) with the 
ADV11's status register address ana the low byte of location 
SVECT1 (1244) with the ADV11's vector address. 


End of Pass Typeouts 
At end of pass, the following typeout will occur: 
“ENDPASS GOOD UNITS 0000000000000011 


This indicates that units 1 and 2 have run without failure. 


ERRORS 


This program uses the Diagnostic ‘‘SYSMAC'’ package for error 
reporting and typeout. he error information consists of the 
fol Lowing: 


ERRPC: Location at which an error was detected. 
Address of the status register. 
Address of the buffer 
Channel value 
Expected correct data | 
The acceptable deviation from the nominal 
T : Actual data 
EXPECTED: Expected correct data 





7.0 MISCELLANEOUS 


7.1 





Execution Time 
Execution time for each of the tests is: 
Calibration: 5 conversions/min 2110 baud 


Print Values: 8 conversions/8 seconds @ 110 baud 

Wraparound Test: 7 minutes first pass; 25 minutes 
for successive passes 

Logic Test: 1 minute : 

Auto Test: 8 minutes first pass, 26 minutes 
for successive passes 


Status Register and Vector Addresses and Priority 


When testing more than one ADV11, the difference in addresses is 
4 for bus address and 10 for vector address. These values are in 
VADR (bus address) (1332) and VVCT (vector address) (1334). The 
first ADV11's status register address must be in $BASE (1250), 
its vector address must be in the low byte of $VECT1 (1244). 


Switch Register 


If a hardware switch register is present and the operator desires 
to use a software switch register and the *G feature; it is 
necessary to load the starting address, set the hardware switch 
register to all ones (-1), and depress start. The program will 
then run with the software switch register. 





VT55 Graphic Output 


The screen display may be halted for examination by setting bit 
12 of the switch register. Then, type ‘P'’ to complete the 
program's execution. 


RESTRICTIONS 


Testing 


The BERG Test Connector must be present when running the auto 
test and the wraparound test. 


Starting Restriction 


If a free-running clock, such as 60Hz from the power supply, is 

attached to the BEVNT bus line on_ both Rev level C/D and E 

peptone an interrupt to location 100 will occur when using the 

‘GC’ a *L’' commands prior to oupgut tng the first instruction. 
e 


Therefore this program can not disable t BEVNT bus Line by 


inhibiting interrupts. : 


User systems requiring a free-running ciock attached to the BEVNT 
bus Line can temporarily avoid this situation a setting the 
PSW(RS) to 200, instead of using the 'G** command, load the PC 
(R7) with the starting address and use the proceed *P’’ command. 
Before using the ‘L'' command, the PSW(RS) can be set to 200 to 
avoid receiving the BEVNT interrupt after loading the ABS Loader. 


Possible Program ‘BOMBS'' 


The first two tests of this program check to see if the ADV11 
responds to the expected address. If the ADV11 does not respond, 
a buss error occurs. Also bus errors can occur during the time 
the program sizes to see how many ADV11's are on your system. 


For more information on the next subject. see JAN. 1976 LSI-11 
ENGINEERING BULLETIN issued by The Digital Components Group. 


Bus errors may alter the preset contents of location 4 before the 
trap is executed, thereby transferring program control to area in 
the program that was not ort to handle the trap. If this 


happens, the program wi 


” and possibly rewrite parts of 
itself. 


PROGRAM DESCRIPTION 


Logic Tests 


These 23 logic subtests run sequentially without further operator 
intervention. Its purpose is to check that each of the status 
register bits that are read/write can be loaded and properly read 
back; that initialize clears the external start enable bit, the 
done bit, the interrupt enable bit, the overflow bit, the error 
flag, and the A/D start bit. It also checks that the A/D done 
flag sets at end of conversion and clears when the converted 
value is read. It _ checks the interrupt logic and the correct 
setting of the error flag. 


Calibration Routine 


If 'C’' is typed, the program will ask for a channel. Type 
channel ‘number followed by a carriage return. The program will 
ask you if a want offset or gain. ly voltage requested to 
selected channel. Adjust pot requested for 0.00 | SB typeout. 
yee carriage return when adjusted. The last typeout will be 
checked for 0.00 LSB with a tolerance of 0.04 LSB if outside, the 
program will ask you to adjust the same pot again. 


Print Values Routine 


This test begins when the operator types 'P’’. It then loads the 
channel from the switch register bits 0-7 and does a conversion 
on that channel. If SWR bit 13 is down (0), it prints out the 
converted value on the teletype; otherwise, if SWR bit 13 is _up 
(1), it puts the converted value in the display register. The 
operator may change the channel at any time during the test, 
however the new values from the new channel will not printed 
until the next Line of 8 values is printed. The 8 values on each 
Line correspond to only one channel. 


Differential Linearity 


This test determine if a change in the input voltage represents a 
similar change in the resulting converted binary value, by 
measuring the width of each state correct to 0.01 LSB. 





9.5 


9.6 





Settling Test 


The purpose of this test is to check that the time necded to 
settle and correctly report a new input value after switching 
ane does not exceed the expected amount of time for such a 
change. 


Noise Test 


This test measures the internal short-term repeatability noise 
within the A/D. RMS noise equals 1 standard deviation of the 
Gaussian curve, PEAK noise equals 2.3 standard deviation of the 


Gaussian curve. 


Analog Tests 


These 6 subtests check the channels and their output. 


MAINDEC~11-DVADA-8 MACY11 ssnihiaaneid ioe -78 15:54 
CVADAB.P11 17-JUL-78 00:00 ABLE OF CONTENTS SEQ 0010 


21 BASIC DEFINITION 
22 eight ® SuITCH SETTINGS 
30 TRAP_CATCHE 
STARTING ADDRESS(ES) 
ACT11 HOOKS 
APT open Li BLOCK 
COMMON TAGS 
APT MAILBOX~E TABLE 
ERROR POINTER TABLE 
MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 
CONTROL A_AND C DECODERS 
INITIAL START-UP,HOUSEKEEPING, AND DIALOGUE 
INITIALIZE THE COMMON TAGS 
DETERMINE IF VT55 TYPE TERMINAL IS PRESENT 
DIALOGUE TO DETERMINE WHICH TEST TO RUN 
FLOAT A ONE THRU MULTIPLEXER BITS 
OAD ERROR I.E. BIT14 
INTERRUPT ENABLE BIT6 
CLOCK OVERFLOW START ENABLE BITS 
EXTERNAL START ENABLE BIT4 
MAINT. TST BIT2 
ENABLE I.D. BIT3 
13 CLEARE 
12) mo 
CK ERROR FLAG a 
T CLEARS BITS oe. 8-11,1 
INIT CLEARS ERROR FLAG 
DONE FLAG SETS AND BITO CLEARS ON END OF CONV. 
INIT CLEARS DONE FLAG 
A/D DONE FLAG CLEARS WHEN READ CONVERTED VALUE 
ALL *O°S RESULTS USING MAINT. ADTST. BJT 
EST ALL ‘1°S RESULT USING MAINT. ADTST. BIT 
GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION 
TEST INTERRUPT OCCURS WHEN ERROR AND I.E.E. IS SET 
TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER 
TEST oe eect ton SETS IF START 2ND CONV. BEFORE DONE FLAG SETS 


-~~ 
Norae Y GRRE 


SCSI SS 


C 
TEST CH1 +4.5 VOLT 
TEST CH2 -4.5 VOLT 
TEST GROUND ON CHANNELS 4 - 17 
TEST VERNIER OFFSET DAC ON CHO 
ak ON CHO 


RAMP RANGE, CH3 

NOISE TEST, 1 EDGE 

INTERCHANNEL SETTLING TEST, 1 EDGE 
13 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST 
PRINT VALUES ROUTINE 
LOGIC TEST SECTION 
AUTO TEST 
WRAPAROUND TEST 
DETERMINE IF MORE ADV11'S TO BE TESTED 
END OF ROUT INE 


TINE 
READ AN OCTAL NUMBER FROM THE ITY 
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SCOPE HANDLER rine 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPEOUT ROUTINE 
TYPE ROUTINE 

APT COMMUNICATIONS ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
BINARY TO ASCII AND TYPE ROUTINE 
TRAP DECODER 

TRAP TABLE 
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-TITLE MAINDEC-11-DVADA-B 
:*COPYRIGHT (C) 1978 
:*DIGITAL EQUIPMENT CORP. 

3s AMAYNARD . MASS. 01754 


: PROGRAM BY GEORGE STEVENS 


‘ STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
: *PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


* SBTTL BASIC DEFINITIONS 


ce he OF THE STACK POINTER *** 1100 *** 
-EQUIV EMT,ERROR 3;BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE ; BASIC DEFINITION OF SCOPE CALL 


i eta | tame DEF INI TIONS 
11 ODE FOR HORIZONTAL TAB 


:CODE FOR LINE FEED 
3 CODE FOR CARRIAGE RETURN 
000200 200 ;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 7:PROCESSOR STATUS WORD 


177774 3z;STACK LIMIT REGISTER 
: ; PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
177570 TZHARDWARE DISPLAY REGISTER 


3 *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= 20 NERAL 


3 


ek ek ek ad at a od = od YL) 2 2 I I ot 


ee a et tt et tht ttt 


NERAL 
; S ISTACK POINTER 
: PROGRAM COUNTER 


;*PRIORITY LEVEL DEF INI TIONS 
PRO= 0 


NOUSWN—O 


PRIORITY 
3*'‘SWITCH REGISTER’’ SWITCH DEFINITIONS 
ae iS 


SW13= 
SW12= 
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— 
— 


81T01,B1T1 
B81T00,B1TO 


3 *BASIC atl TRAP VECTOR _ADDRESSES 
EC= .OUT AND OTHER ERRORS 
{RESERVED AND ILLEGAL INSTRUCTIONS 


33 TRACE TRAP 


me ee kk kk kk kk kk ak td od 2 oh oh ot ot oo 2 8 oS SI SS SS OS SS 
ee a tt i tt ttt titties 
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CVADAB.P11 17-JUL-78 00:00 BASIC DEFINITIONS SEQ 0014 


BPTVEC= 14 BREAKPOINT TRAP (BPT) 
SS INPUT/OUTPUT TRAP (IOT) **SCOPE** 


R FAIL 
ZIEMULATOR TRAP (EMT) **ERROR** 
:: "TRAP" TRAP 


sz TTY KEYBOARD VECTOR 

ihe PRINTER VECTOR 

PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
. SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
HALT FOR VT55 DISPLAY 
INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


ee ek td = 2 2 2 I UL) I SY I 
wwe eye vy ewe meee ww 
a 


BBL LL LLL KO 


-=100 
«WORD 104,200,2 
TRAP CATCHER 


=0 
2 *ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"' 
:’SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
i #LOCATION °. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: | “WORD 0 3-SOFTWARE DISPLAY REGISTER 
WREG: .WORD 0 i ;SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
001644 JMP @4BEGIN ;; JUMP TO STARTING ADDRESS OF PROGRAM 
002262 @ABE G2 RESTART ADDRESS 
001652 @4BEGIN2 START ADDRESS FOR OPTION TEST AREA 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
31 
32 
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ty -SBTTL ACT11 HOOKS 

(2) DISSES E IIIS EIIISISIIIIIIISIIOISIIDIDIOISIIUIIOIIIIOIOIISIUIDIOIOIIOIOITI ITO I TOT TE 

(1) ;HOOKS REQUIRED BY ACT11 

(1) 000214 $SVPC=. SAVE PC 

(1) 000046 =46 

(1) 000046 011764 SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
(1) 000052 -=52 

(1) 000052 000000 «WORD QO dig + x LOC. Pt TO ZERO 

(1) 000214 .=$SVPC 33 RESTORE P 

35 001000 -=1000 

Bs .SBTTL APT PARAMETER BLOCK 

(2) DESEO SIOISISIISISISIISISIOIIIDIIIOIIIIIOIOIIDIDIUIOIIOIIOIIIIIUIIIII IDOI I IoD ti itt 

(1) :Se7 LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

(2) DAES IDE ISIS ISO IIDIEIIEIISI IOC IIDIOIIUOIIIUIUIIOOIIIOI IOI IER iit 

(1) 001000 . $X=. Sh CURRENT LOCATION 

(1) 000024 -=24 3:SET POWER FAIL TO POINT TO START OF PROGRAM 

(1) 000024 000200 200 73FOR APT START UP 

(1) 000044 -=44 :sPOINT TO APT INDIRECT ADDRESS PNTR. 

(1) 000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 

(1) 001000 .=.$X | ::RESET LOCATION COUNTER 

(2) {REAR RRR ERR RARE TERE RRA ARR Re 

(1) SET UP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 

Ae ; INTERFACE SPEC. 

(1) 001000 SAPTHD: 

(1) 001000 000000 $HIBTS: .WORD 0 : TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

(1) 001002 001174 SMBADR: .WORD SMAIL ADDRESS OF APT MAILBOX (BITS 0-15) 

(1) 001004 000454 STSTM: .WORD 300. ;;RUN TIM OF LONGEST TEST 

(1) 001006 000074 SPASTM: .WORD 60. 2 = RUN TIME IN SECS. OF 1ST PASS - 1 UNIT (QUICK VERIFY) 
(1) 001010 000454 SUNITM: .WORD 300. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 000031 “WORD  $ETEND-SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 
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001104 


— 
ed ed aed ed 


ee ee a ee ee ee ee a ee ee ee ee a ae a ee ee ee ee ee ae ee 
— 
— 
™ 
~ 


17-JUL-78 


001100 


MACY11 30A(1052) 
00:00 C 


000377 


25-JU 
OMMON 


L-78 
TAGS 


-SBTTL COMMON TAGS 


:*THIS 
; *USED 


SCMTAG: 


SAUTOB: . 


D 2 
15:54 PAGE 2-1 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


-=1100 


feleleleleleleleoleolon feleleleiolelolea) 


<207><377><377> ; 3 
/?/ : 


<15> 
<12> 


‘$B TL APT MAILBOX~ETABLE 


FLERE RARER AREA ERA AERA A AERA RARER EERE RA RARER REO REE ERD 


-EVEN 
$MA 


73START OF 
33 CONTAINS 


3 = CONTAINS 


COMMON TAGS 


Eda h ha kaadakahehalahehalaheheieiaheiaieheiaieheiainieisiciaheleiaieieicheheinieheiaieheiciheicisieisieleieieisieleiaielelel 


THE ae NUMBER 


ERROR 


LAG 
SUBTEST. Late COUNT 


TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 


MAX. ERRORS 


TEST 
PC OF LAST ERROR INSTRUCTION 


ADDRESS OF 


PER 


*GOOD' DATA 
Pad DATA 


7; ;RESERVED--NOT TO BE USED 


3 sAUTOMATIC MODE INDICATOR 
3 INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
; ADDRESS OF DISPLAY REGISTER 
zz TTY KBD STATUS 
;TTY KBD BUFFE 


: R 
eeTTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. oo Fir 


$ CONTAINS NULL CHARACTER FOR 


FILLS 
CONTAINS # OF FILLER CHARACTERS er 
2: INSERT FILL CHARS. AFTE 
"TERMINAL WAAL FLAG (BI T<07>" O=YES) 
NUMBER OF ITERATIONS 


3 MAX. 
3 sESCAPE og? awe: ADDRESS 


i : CARRIAGE 


LINE FEED 


 gaanancensaatennacteneceneennenssenneneeeeneeeeneenteneeeeneens 


;;APT MAILBOX 


3 MESSAGE TYPE CODE 


RE TURN 


: ; FATAL ERROR NUMBER 


NUMBE 
: : IME SSAGE ADDRESS 


TER A ‘LINE 


SEQ 0016 


E 2 
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CVADAB.P11 17-JUL-78 00:00 T MAILBOX~E TABLE SEQ 0017 
(2) 001212 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
(2) 001214 SETABLE: 3;APT ENVIRONMENT TABLE 
(2) 001214 000 SENV: .BYTE AENV 7 ENVIRONMENT BYTE 
(2) 001215 000 SENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 
(2) 001216 000000 SSWREG: .WORD ASWREG :cAPT SWITCH REGISTER 
(2) 001220 000000 SUSWR: .WORD AUSWR USER SWITCHES 
(2) 001222 000000 $CPUOP: :WORD ACPUOP ;;CPU has fh df 


(2) ; 1/04= o1, "15 /05= 02,11/20=03,11/40=04,11/45=05 
(2) 3* 11770=06,PDQ=07,0210 

(2) s* BIT 10=REAL TIME CLOCK 

(2) s* BIT 9=FLOATING POINT _— 

(2) :* BIT 8=MEMORY MANAGEMENT 

(2) 001224 000 $MAMS1: .BYTE AMAMS1 :7HIGH ADDRESS .M.S. BYTE 

(2) 001225 000 $MTYP1: [BYTE AMTYP1 ::MEM. TYPE,BLKA1 

(2) :* MEM.TYPE BYTE == (HIGH BYTE) 

(2) 3” 900 NSEC CORE=001 

(2) ad 300 NSEC BIPOLAR=002 

(2) 2° 500 NSEC +. 

(2) 001226 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA& 

(2) bel MEM.LAST ADDR. =3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
(2) 001230 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 

(2) 001231 000 $MTYP2: .BYTE AMTYP2 ;;MEM. TYPE ,BLK#2 

(2) 001232 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLKA#2 

(2) 001234 000 $MAMS3: :BYTE AMAMS3 ;:HIGH ADDRESS.M.S.BYTE 

(2) 001235 000 S$MTYP3: .BYTE AMTYP3 2 7MEM. TYPE ,BLKA3 

(2) 001236 000000 S$MADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS .BLK#3 

(2) 901240 000 SMAMS4: .BYTE AMAMS4 § ;;HIGH ADDRESS,M.S.BYTE 

(2) 001241 000 SMTYP4: :BYTE AMTYP4 ::MEM.TYPE.BLKAG 

(2) 001242 - WORD ;;MEM.LAST ADDRESS 

(2) 001244 100400 S$VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
(2) 001246 000000 $SVECT2: .WORD AVECT2 : 2 INTERRUPT VECTORA2BUS PRIORI TY#2 

(2) 001250 170400 $BASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
<2) 001252 000000 SDEVM: .WORD ADEVM ;DEVICE MAP 

(2) 001254 000000 $CDW1: .WORD ACDW1 CONTROLLER DESCRIPTION WORD#1 

(2) 001256 SE TEND 


MAINDEC-11-DVADA-8 
CVADAB.P11 


(1) 


te te ee ee ee ee ee a ee 


SPW SS SS YS a se 
—O0OvwvMvuvuvuww 


001256 


MACY11 rn OE 


17-JUL-78 00:00 


014267 
014407 
014566 
014626 


014311 
014526 
014616 
014626 


014335 


Ry -78 
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OR POINTER TABLE 
.-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

7*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

[*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC). 


> *NOTE1: 


: *NOTE2: 


a 


SERRTB: 


s ITEM 


sITEM 


: ITEM 


;1TEM 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;:POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 
::;POINTS TO THE DATA FORMAT 


STATUS REG. ERROR 
sERRPC STREG EXPECTED ACTUAL 
;SERRPC, STREG, SGDDAT, SBDDAT 


FAILED TO INTERRUPT 
;ERRPC STREG ACTUAL 
;SERRPC, STREG, S8DDAT 


UNEXPECTED INTERRUPT 
;ERRPC STREG 
SERRPC, STREG 


ERROR ON A/D CHANNEL 
sERRPC STREG CHAN NOMINAL TOL ACTUAL 
7 SERRPC,STREG, CHANL , SGDDAT , SPREAD , SBDDAT 


SEQ 0018 
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CVADAB.P11 17-JUL-78 00:00 MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS SEQ 0019 


MISCELLANEOUS, TEMPORARY, AND STORAGE LOCATIONS 
s ADDRESS OF STATUS REGISTER 
;UPPER BYTE OF STATUS REG. 
S ADDRESS OF A/D BUFFER 
;VECTOR ADDRESS 
: APRIOR + INTERRUPT PRIORITY LEVEL 
: AVECT14#2 


: AVECT1+4 ;ERROR VECTOR ADDRESS 
: AVECT1+6 
: INCREMENT FOR BUS ADDRESS 
; INCREMENT FOR VECTOR ADDRESS 
;BASE CHANNEL 


:NO. OF WIDE STATES 
. OF NARROW STATES 


;NO. OF SKIPPED STATES 

;WORK AREA 

sFIRST CHANNEL 

; SEC C L 

*S TO BE TESTED 

*S TO BE TESTED 
L 

; CHANNEL VALUE 

; TEST ADDRESS 

7 RANDOM 

;NUMBER 

3 VALUES 

;RMS NOISE VALUE 

; PEAK nyt y VALUE 

:VT55 FLA 

SNEVIAT ION FROM THE NOMINAL 

;SAR VALUE 

; TIME DELAY COUNTER 

SEDGE V VALUE 


MIN VALUE 
SOPTION TEST AREA FLAG 
MAX VALUE 
[PERCENT FOR SAR ROUTINE 


4 
10 
0 
60 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
1 


000000 : 
000001 TSTBIT: 


UNE XP: 
012737 001456 001162 MO #1$, SESCAPE s7ESCAPE TO 1$ ON ERROR 
4 td 001103 yews 


3 
005037 001162 1$: SESCAPE RETURN ESCAPE TO NORMAL 
000002 ;UNEXPECTED INTERRUPT 


Bo saWRaRan 588 


— oe et et ot ot oa ot os ot I YY 


Nm 
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CVADAB.P11 17-JUL-78 00:00 CONTROL A AND C DECODERS SEQ 0020 


. SBTTL CONTROL A AND C DECODERS 
ISERV: MOV RO,-(SP) 
177454 MO 


;SAVE RO 
a$TkB,RO *GET CHARACTER 
177600 #177600,RO 
000003 RO.#3 r1S IT *C? 
sECHO CHARACTER 


— 
Nm 
vw 


NASSONO 


012056 .CMSG 
001100 #STACK,SP 


MOV 
011320 PC,RST ;RESET & SET INTRPT. EN. 
BEG2 
RO,#1 siS IT °A? 
2$ 


Ww 
Ww 


002262 
000001 


012051 ECHO CHARACTER 


AMSG 
001100 #STACK,SP 
011320 RST sRESET & SET INTRPT. EN. 
177622 ;RETURN TO TEST 
000007 : 


et es at nd as St os SS os SS os 


SRIKAK 


3 *G? 


BNE NONE 
001140 177570 SWRA 1775/U HARDWARE SWREG? 


104401 012063 ~GMSG ;ECHO CHARACTER 
017746 177340 aSWR ,-( SP) 7 SAVE aSwWR FOR TYPEOUT 
77 TYPE SWREG 
3:GO TYPE--OCTAL ASCII 
6 sz TYPE 6 DIGITS 
1 72 TYPE LEADING ZEROS 
012243 TYPE ~ SLASH 


;READ NEW VALUE 
177322 MOV (SP) +, @SWR ;LOAD NEW SWREG VALUE 


000001 | sDOES IT RETURN TO A WAIT? 
BNE RET2 3 
000002 : ‘BUMP RETURN ADDRESS 
012047 NONE : sTYPE ‘'2"" 
BR POPR 
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- SBTTL INITIAL START-UP,HOUSEKEEPING, AND DIALOGUE 
001426 BEGIN: CLR WF TEST 


BR RBEG 
000901 BEGIN2: MOV #1 ,WETEST 

RBEG: RESET 

-SBTTL INITIALIZE THE COMMON TAGS 

7:CLEAR THE COMMON TAGS (SCMTAG) AREA 
001100 MOV #SCMTAG ,R6 sett ea LOCATION TO BE CLEARED 

CLR (R6)+ CLEAR MEMORY LOCATION 
001140 CMP #SWR,R6 ;;DONE? © 
-~6 ; LOOP 


BNE i BACK IF NO 
001100 WSTACK, SP +:SETUP THE STACK POINTER 
+s INITIALTIE A FEW VECTORS 
015224 MOV #SSCOPE , a#IOTVEC £3107 VECTOR FOR SCOPE ROUTINE 
000340 #340, a#1OTVEC+2 ;:LEVEL 
ASERROR , AFEMTVEC Fe VECTOR FOR ERROR ROUTINE 
#340, a#EMTVEC+2 LEVEL Ll? 
#STRAP , AA TRAPVEC FE TRAP VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC+2;LEVEL 7 
T, SEOPCT Seer UP END-OF -PROGRAM COUNTER 
zs INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
+ ALLOW ONE ERROR PER TEST 
S INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV “SLPERR *SETUP THE ERROR LOOP ADDRESS 
z:SIZE FOR A MARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;SEQUAL TO A ‘1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
013746 000004 MOV @FERRVEC.-(SP) ;:SAVE ERROR VECTOR 
#64$,, AMERRVEC + ISET UP ERROR VECTOR 
#DSWR, SWR + SETUP FOR A HARDWARE SWICH REGISTER 
177570 #DDISB D DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
177777 #-1,aS +: TRY TO REFERENCE HARDWARE SwWR 
66S" : ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
se HARDWARE S WR IS NOT = -1 
65$ cnn IF NO TIMEOUT 
002054 : #65$, (SP) tISET UP FOR TRAP RETURN 


000176 : #SWREG , SWR POINT TO SOFTWARE Sw 
000174 #DISPREG, DISPLAY 
000004 : (SP)+,@M#ERRVEC ;;RESTORE ERROR VECTOR 


001202 C $PASS CLEAR PASS COUNT 
000200 #APTSIZE .SENVM TEST USER SIZE aa ~ fi 
BE 7 YES,USE NON-APT SwWITC 
012737 001216 #SSWREG , SWR ‘INO, USE APT SWITCH REGISTER 


Fe an tae ee et ee i ee, 
ee ed ed ad od nd = 
ee Na Ne ee ee ee ele ee 


012737 





J 
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CVADAB.P11—«-17=JUL=78 NITIALIZE THE COMMON TAGS SEQ 0022 
165 002116 005037 001410 CLR FLAG sCLEAR VTS5 FLAG 
166 002122 005737 000042 TST arse 31S IT CHAINED? 
167 002126 001033 BNE REST1 
168 .SBTTL DETERMINE IF VT5S5 TYPE TERMINAL IS PRESENT 
169 002130 042777 000100 177006 BIC #100, a$TKS 
170 002136 104401 013744 TYPE ,CO :TYPE ASCIZ STRING 
171 002142 004737 002432 JSR PC. VTFLG [GET A CHARACTER 
172 002146 020027 000033 CMP RO, #33 
173 002152 001017 BNE NOVT55 :NO VTSS PRESENT 
174 002154 004737 002432 JSR PC, VTFLG ‘GET A CHARACTER 
175 002160 020027 000057 CMP RO,#57 
176 002164 001012 BNE NOVTS5S :NO VTSS PRESENT 
177 002166 004737 002432 JSR PC, VTFLG :GET A CHARACTER 
178 002172 020027 000103 CMP RO.#103 
179 002176 001403 BEQ v755 :VT55 IS PRESENT 
180 002200 020027 000105 CMP RO,#105 
181 002204 001002 NOVTS5 


BNE 
182 002206 005237 001410 vT55: INC FLAG 


MAINDEC-11-DVADA-8 
CVADAB.P11 


ee ee ed ad wd od od 2 
BELESRACLESELEAE 


SeleeraRse 


rmnrnrn 
ad ad ad od 
Wwnr-o 


214 


MACY11 30A(1052) 


17-JUL-78 00:00 


014107 


001426 
013561 
000100 
002334 


000040 
000101 


006066 
000103 


005364 
000120 


005640 
000114 
006030 
000127 
006150 
012047 


176620 


25-JUL-78 
DIALOGUE TO DETERMINE WHICH TEST TO RUN 


- SBTTL 
NOVTSS: ba 


REST 


BEG2: 


23: 


1$: 
TRYAG: 


K 
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PC ,F 1XONE 
KBVECT,RO 
#ISERV, (RO)+ 
#340, (RO) 
#62341,RNA 
#142315, RNB 
#127623,RNC 
#STACK, SP 
ans2 
1$ 
BEGL 
WETEST 
MSG71 
#100, astKs 
(SP5 
#18,-(SP) 
(SP)+,RO 
#40, (RO) 
(ROS .#°A 
2$ 
BEGINA 
(RO) °C 
3$ 


BEGINC 
(RO) .4°P 


ae 3° TO DETERMINE WHICH TEST TO RUN 


INITIALIZE ADDRESSES 


;RANDOM NO, VARIABLES 


;RESET STACK POINTER INCASE RESTARTED 
RESTART ADDRESS 
31S 1T CHAINED? 


:GO TO LOGIC TESTS 
TEST FOR OPTION TEST 


CLEAR PSW 


;READ ANSWER 
31S IT A? 
iiNO, TRY 
TO AUTO TEST 
IT C? 


ot ed ed 


7zNO, TR 
TO CALIBRATION TEST 
IT P? 


Y 
7 2NO, TRY 
: ro DISPLAY CONVERSIONS TEST 
zINO, TRY : 
:GO TO LOGIC TESTS 
SIS IT Ww? 
:NO, TRY AGAIN 
:GO TO WRAPAROUND TEST 


WAIT FOR CHARACTER 


SEQ 0023 
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VIFLG: CL RO :TEST FOR PRESENCE 
<= VT55 RESPONDS WITH <33><57>[<103> OR <105>J 


176504 


:POP A WORD OFF STACK 
:;NO VT55 PRESENT 


a@$TkB,RO 
#177600,RO sTEST VT55 CODE 


SPASS CLEAR PASS COUNT 
GUNITS CLEAR UNIT ERROR BITS ; 
#1, TSTBIT SINITIALIZE MODULE mw TEST BIT 

. TEMP }SET UP FOR ONLY ONE A 


™ : TESTING ONLY ONE nD? 


YES 
#4, TEMP Ser UP MAX NO OF A/D'S 
WF TEST I EST 


#16.,TE ‘SET UP MAX NO OF 
$BASE.SBDDAT : SETUP TO TEST FOR ADV11'S 
@FERRVEC,-(SP) SAVE ERRVEC 

#2$ , ERRVEC ‘SET UP FOR TIME OUT ERROR 
NBEXT [CLEAR ADV11 COUNTER 
aSABDDAT SADDRESS ADV11 

NBEXT ‘INCREMENT ADV11 COUNTER 
TSTBIT.GUNITS :SET A/D BIT UNDER TEST 
STBIT iSET TEST BI BIT FOR NEXT UNIT 


AC 
a + ; REACHED ont NO OF A/D'S 
VADR, SB8DDAT *GET NEXT ADV11 
1$ > TRY NEXT ADV11 
(SP)+, (SP)+ ‘pop 2 2 WORDS OFF STACK 


NBEXT ,~(SP) 32 SAVE NBEXT FOR TYPEOUT 
es ~~ NUMBER OF ADV11°S 
TYPE--OCTAL ASCII 
2 SITYPE 2 DIGIT(S) 
0 3; SUPPRESS LEADING ZEROS 
-MSG5O 
NBEXT 


yADJUST ADV11 COUNT 
NBEXT.NMBEXT § 3KEEP COUNT OF NUMBER 
(SP)+.ERRVEC :RESTORE ERRVEC 

#1. TST617 3 S INITIALIZE MODULE ERROR TEST BIT 


Ce 
ts 
~~ wee 


se 


> 
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BEGINL: 


LEAR AERA AAERAERERE. REA AARARARAARARAEAAAAAEEERAEAEAEEKEREKE 
T*TEST 1 FLOAT A ONE THRU MULTIPLEXER BITS 
RRA RAEN 
012737 iéT1: #TST1,$LPADR 
#TST1.$LPERR 
#81T8.$GDDAT sLOAD FIRST BIT 


2$: 
1 ;FAILED ie LOAD + READ BIT 
1$: SGDDAT iGET NEXT BIT 

SGDDAT ,#BIT12 F INISHED? 

2s 32NO0,GO To NEXT TEST 


FRR AAE RARER EEER AREER ERERAARARAREERARARERRARRERAREEERERER RED 


TATEST 2 LOAD AND READ BACK ERROR I.E. BIT14 


RRA ERAREEAEERAEEERERERERAEARREEEEE 


1812: SCOPE 
MOV 


#81T14,$GDDAT 
ERROR 1 FAILED TO LOAD + READ ERROR 1.E. 


5 RARER AAAARARAERAAARAAEREREERRARARARARERRERAREREREAREREARRRE REE 


TEST 3 LOAD AND READ BACK INTERRUPT ENABLE BIT6 


5 RARER AAAAAEAAAAAAAAERERAERAAE REAR AERA AAAEAAAAAEAEERARAERERERE EH 


TST3: SCOPE 
MOV #UNEXP , aVECTOR ;SETUP FOR UNEXPECTED INTERUPT 
MOV #8116, $GDDAT [LOAD EXPECTED 
ERROR 1 ;FAILED TO LOAD + READ INTERRUPT ENABLE 


LEAR AAAAAAAAAARAARARARAAAAAARAAARAAAAEAEAAAARAAARAEERARAERENES 


TRTEST 4 LOAD AND READ BACK CLOCK OVERFLOW START ENABLE BITS 


TTT TTTTITITITITITITTIITI TLL LLL TELL LLL LLL 


TST4: SCOPE 
MOV #B1TS,SGDDAT [LOAD EXPECTED DATA 
ERROR 1 ;FAILED TO LOAD + READ CLOCK OVERFLOW START ENAB 


[AAA AAAAAAAAAAAAAAAAAEAAEAAARERAAAAAAAAAAAAEAAAAAEAERAARHER AAA EEE 


ZSTEST 5 LOAD AND READ BACK EXTERNAL START ENABLE BIT4 


PAAR AAAAEAAAAAEAAEAAAAAAEAEAAAARAAAAERAAAAARAAAAAAAAAAHARAARAAEAEE 


1815: SCOPE 

ar ee #8174, S$GDDAT LOAD EXPECTED DATA 

ERROR 1 FAILED TO LOAD + READ EXT. START ENABLE 
PUTT Iti titi iii iii iti 
:*TEST 6 LOAD AND READ BACK MAINT. TST BIT2 


SS RAAAAAAAAAAAAAAAAARAAAEAAEEAAARAEEAEAAAAAAEARHAAHEEAAAAAA AAA ES 


1516: SCOPE 
MOV 
CHKIT 


BIZBSSSY 


aAanA 
MWWw 
wer 


#B1T2,$GDDAT 
1 ;FAILED TO LOAD + READ BACK MAINT. TST 


S83 
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. 17-JUL-78 00:00 17 LOAD AND READ BACK ENABLE |.D. B1T3 


SERRA AAAAARAAARAE AAA RE EAE EE AEA AAEAAEAARA RARER ERRERREREE AREER EH 


LATEST 7? LOAD AND READ BACK ENABLE I.D. BI1T3 


RARER AEEAAEAAAAAEAAAEAEAARARAERAERERARERRREREERERREE 


1817: SCOPE 
MOV #81T3,$GDDAT 


ERROR 1 ;FAILED TO LOAD + READ ENABLE I.D. BIT 


PITTI TTI titi it iit itii titi titi e 


SSTEST 10 TEST 1.D. BIT (BIT 12) CLEARED 


PITTI Iti iiiiiititi titi iiiiilitiiiiiiiiiirT 
18110: 

000001 176236 MOV #1 ,aSTREG CLEAR 1.D. ENABL 

176232 1$: SS TASS WA 


BPL $ 
010000 176226 seitie. @ADBUF F -D. 
pores :;YES = GOTO NEXT TEST 


3 
Paha RAERAAAAERARAAAAEAEARAAAEEEAAAEARARAEAEAAAEARAAARAEARAARARAAEAREEAREREREEHEE 


ATE 111 * * TEST T.D. BIT (BIT 12) SET 


Se AARAAAAAAAAAEAEEEAEAAEAEAAAAAAAAEAAAEARARAERARERAAARAEEEAEERAAHEAAAEE 


rér11: SCOPE 
176206 MOV errs erte. anes T 1.0. ENABLE BIT 


1$: TSTB =. @STRE r Fone CONVERS ION 

BPL 1$ : 

176176 BIT #81112, @ADBUFF 
BNE TST12 


IT SET? 
i¥ES = -— NEXT TEST 


[RAAAAAARAAAAAAAAAAARAAAERAAAAAAAEAARARATAARARARAARARARAREREE EES 


TATEST 12 LOAD AND READ BACK ERROR FLAG BIT15 


+ eee Re aeah aa Aaa eAAAAAAAAAAAAAAAAAAAAAARARHRAAEAARHEREEREAREEREAEE 


TST12: SCOPE 
wv #B1T15,$GDDAT  ;LOAD EXPECTED DATA 
ERROR 1 ;FAILED TO LOAD + READ ERROR FLAG 


PITITIT ITLL ttt ttt 


;STEST 13 TEST INIT CLEARS BITS 2-6,8-11,14 


REAR KEAAAAAAARERAAEAREAAEAAAAAARAAARARAAARAERARAEAEAEEERREREREREEEE 


1$113: SCOPE 
MOV e300 ST Ines 3;D0 300 ITERATIONS 


LOAD EXPECTED DATA 
. 2S: MOV #47576 ,@STREG SET STATUS REGISTER 
2 INITIALIZE 
#100, aSTKS [SET INTRPT. ENABLE 
@STREG, SBDDAT READ STATUS REGISTER 
TST14 ;;NEXT TEST 
1 ;RESET FAILED TO CLEAR AD ST. REG. 


SEQ 0026 
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DSR EE EIR IIIDIIIOIOIISIIIIDIUIUIOIUIIIIOIOIIUDIDR tit 
i*TEST 14 TEST INIT CLEARS ERROR FLAG 
[DISEASES EIDE IO IIIOOOIUIDIIIOIIUIOIUOE IIE IDI iit 
TST14: 
001160 MOV #300, STIMES ;D0 =, ITERATIONS 
176070 MOV #B1T15,aSTREG oSSuE I _ nit 
175706 I #100, a$TKS ;SET INTRPT. EN. FOR KEYBOARD 


FLIER EER REE RRR EER REE E REE R EERE 


:*TEST 15 TEST DONE FLAG SETS AND BITO CLEARS ON END OF CONV. 


RARER RARER ERERKEEE 


18115: 
001000 MO #B1T9,RO STALL TIME COUNTER 
176042 @STREG START CONVERSION 
000200 001124 #B1T7,$GDDAT [LOAD EXPECTED 

1$: +3! RO STALL 


1$ : TIME 
100000 176022 #BIT15,@STREG ;MASK OUT ERROR BIT 


1 zA/D DONE FLAG FAILED TO SET;BITO FAILED TO CLEAR 
176016 @ADBUF F ,RO ;CLEAR DONE FLAG FOR ITERATIONS 





2 
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CVADAB.P11 17-JUL=78 00:00 T16 TEST INIT CLEARS DONE FLAG SEQ 0028 


RARER AREER EAR RARE EERE RARER AERA RAR AERA R ARERR RE EERE ED 


CSTEST 16 TEST INIT CLEARS DONE FLAG 
RRA AAAAAAAEAAAEAARAAAAAAAAARAAEAERAAEKARERAAREREREKAEEE 
78116: 
#300, STIMES ::D0 300 ITERATIONS 
SGDDAT ;CLEAR EXPECTED 
28 7START CONVERSION 


ERROR 1 ;DONE FLAG FAILED TO CLEAR 
175576 #100, a$TKS ;SET INTRPT. EN. BIT 


PLANAR RAAT A AERA AAA A ATTA ATTRA ATTRA T RAAT A RAAT AAA R ATER 
:*TEST 17 TEST A/D DONE FLAG CLEARS WHEN READ CONVERTED VALUE 
WITITITITILI LLL TLL LLL LLL LLL LLL LLL LLL LLL 
is117: . 
175742 INC @STREG ;SET A/D START CONVERSION BIT 
175736 1$: eA, @STREG ;WAIT FOR FLAG 


1$ 
175734 MOV @ADBUF F ,RO READ CONVERTED VALUE 
;DONE FLAG FAILED TO CLEAR 


SAAR AERA AAA AAAAEA EAA AERA AA AAAARAA ERA AERAERERERRRERRRR ER 


S*TEST 20 TEST ALL ‘O*S RESULTS USING MAINT. ADTST. BIT 


J LARA AAA AAAA AAA RA AAA EERE RA AA EA AAAAAAAAAARAREERARAERERE REE RH 


TST20: 
SGDDAT ;CLEAR EXPECTED VALUE 
CHANL SET CHANL = 0 
SPREAD ;SET SPREAD = 0 
000005 MOV #5, aSTREG : CONVERT EVEN CHANNEL WITH MAINT. BIT SET 
175674 : dy i *WAIT FOR DONE 


175672 @ADBUFF ,SBDDAT ;RESULTS Ls BDDAT FOR CHECKING 
TST21 :;GOTO NEXT TEST 
& DID NOT GET ALL ‘O°S RSULT WITH MAINT. ADTST 


J LARA AAA AA AA AAA AERA AEA AA AAA AREER AAAEAAAAARAAERAERRE EERE EH 
;*TEST 21 TEST ALL '1°S RESULT USING MAINT. ADTST. BIT 
RARER AAAEAAAEARAEAAAARARAAERAAARAAARARAAAEAAAAAAAEAEAAAEARARAAAEEE 

ié121: 
007777 #7777, $GDDAT : EXPECT ALL '1°S RESULT 
000001 #1, CHANL >SET CHANL = 1 
001412 SPREAD *SET SPREAD = 0 
000405 MOV , [CONVERT ODD CHANNEL WITH MAINT. BIT SET 
175626 : Ist TREG [WAIT FOR DONE 


$ 
175622 001126 RESULTS TO BDDAT FOR CHECKING 
001124 7 EQUAL? 
;GOTO NEXT TEST 


“BID NOT GET ALL °1"S RESULT WITH MAINT, ADTST 





dD. 3 
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CVADAB.P11 17-JUL=78 00:00 T22 GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION 


EEE EEE EERIE EIEIO III IO III IOI I IDUOUIDI I tit 
TRTEST 22 GENERATE INTERRUPT WHEN DONE FLAG SETS AFTER CONVERSION 
Fe ge" gee 7 vaeette Cre gemma aman tdi eer atime teaser 
TST22: SCOP 
CO ENTERING TEST 22°" TYPED OUT TO TELL YOU THE NEXT 
[*TEST THAT IS GOING TO BE EXECUTED. IT IS ONLY TYPED ON PASS 0. 
:*THERE IS DANGER THAT THE UNIBUS COULD GET *HUNG'’ WHILE 
jAEXECUTING Test “Gz . 
000022 #22 ,RO ;GET TEST NO. 
011216 PC ,DUMW PRINT MESSAGE 


~($P) RESET PRIORITY 
003536 MOV #3$,-(SP) 


003612 : ws VECTOR y INTERRUPT VECTOR ADDRESS 

000200 #200, aVECTR1  :SET UP NEW PSW 

000101 ma1T6 10110, aSTREG sce INTERRUPT ENABLE BIT + START CONVERSION 
175532 : Ist asTREG WAIT FOR DONE 


LAG TO SET 
175524 @STREG, SBDDAT {READ STATUS REGISTER 
000300 #B1T7!BIT6,$GDDAT ;GOOD DATA 
2 sFAILED TO INTERRUPT ON DONE 

011270 PC ,DUMC :TYPE COMPLETED 

BR TST23 > BRANCH TO NEXT TEST 

: (SP)+, (SP)+ sRESET STACK POINTER 

001442 PUNEXP VECTOR *SET UP FOR UNEXPECTED INTERRUPT 


~(SP CLEAR PSW 
003632 #4$ ,-(SP) 


011270 4$: SR PC ,DUMC ;TYPE COMPLETED 
175460 @ADBUF F [CLEAR DONE BIT 
JARRE AA AAA AREER EAA AAAE REAR AREA AEAAAAAERARERRARER EERE 
S*TEST 23 TEST INTERRUPT OCCURS WHEN ERROR AND I.E.£. IS SET 
23 RAAAAARAARARAEAAAAEAAAAEAAAEAARAARARAAARARARAEAAAEEAEARAREREREKREEEE 
1S123: SCOPE 
* "ENTERING TEST 23°° TYPED OUT TO TELL YOU THE NEXT 
:*TEST THAT IS GOING TO BE EXECUTED. IT IS ONLY TYPED ON PASS 0. 
*THERE IS DANGER THAT THE UNIJBUS COULD GET "WUNG'’ WHILE 
« #EXECUTING TEST "'23"'. 
MOV #23,R0 :GET TEST NO. 
PC bum PRINT MESSAGE 
175450 #i$, avECTR2 “SETUP VECTOR ADDRESS 
mal ftsiel tie, aSTREG aj Aust AN INTERRUPT 


REG, SBDDAT "BAD D 
#1715 81714, -SGDDAT GOOD DATA 
PC ,DUMC TYPE COMPLETED 
TST20 
(SP)+, (SP)+ POP STACK 
PC ,DUMC 
@STREG 
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CVADAB.P11 17-JUL-78 00:00 T24 TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER SEQ 0030 


RRR RARER AREAAEEAARAAAAEERERERARARAEAAAEAAREAERE EERE 


TEST 24 TEST ERROR FLAG SETS IF 2ND CONVERSION ENDS BEFORE READING BUFFER 


SERRA AAA RARER EAA AA AEE AREA RERAAAAAAREAAAAEREAAREE AREA ERED 


TST24: 
000001 #681 ea START CONVERSION 
175354 1$: es WAIT FOR 


$ 
2s: #BIT1S5!BIT7,$GDDAT ;LOAD EXPECTED VALUE 
#B81T0,aSTREG ;START 2ND CONVERSION 
MO #B1T9,RO WAIT FOR 2ND 
3$: 3! RO CONVERSION TO END 


3$ 
4$: 


1 : ERROR FLAG NOT SET WHEN 2ND 
; CONVERT ENDS BEFORE READ BUFFER FROM FIRST 
175322 V @ADBUF F RO TCLEAR DONE FLAG 
PTI IIIT tii titi tiiiiiti titi tite 
s*TEST 25 TEST ERROR FLAG SETS IF START 2ND CONV. BEFORE DONE FLAG SETS 


J RAR AAARARAAAAAE RARER EREREAAARAAEARARAARAAARERRARERERER REREAD 


TST25: 
T15,$GDDAT  ;LOAD EXPECTED DATA 
;START CONVERSION 
;START NEXT CONVERSION 
#B1TO,aSTREG SONCE AGAIN IN CASE hee INTERVENED 
@STREG, SBDDAT “READ STATUS REGISTER 
#77777 ,SBDDAT :MASK OUT BIT 15 
SGDDAT , SBDDAT ; COMPARE RESULTS 
1$ ; BRANCH OVER ERROR 
1 sERROR FLAG NOT SET WHEN 2ND 
; CONVERT BEGINS BEFORE FIRST DONE 
@ADBUF F RO sREAD CONVERTED VALUE 
@STREG [CLEAR STATUS REGISTER 


PC ;RETURN TO TEST SECTION 


8885538 


SUBROUTINE FOR LOGIC TESTS:; 
eSTIT: MOV SGDDAT .@STRE ;LOAD EXPECTED VALUE 
TEST: MOV “READ ST. REG. 
CMP COMPARE RESULTS 
BNE 7 ERROR RETURN 
pty RETURN ADDRESS TO GET AROUND ERROR 


ADD 
RETERR: RTI 
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000010 
011036 
011150 
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25-JUL-78 15:54 PAGE 15 
WRAPAROUND TEST SECTION 


. SBTTL WRAPAROUND TEST SECTION 
WRAP : 


RRR AAAAAAEEAEEAAAEEEEEEEEAAAAAEEAEREREREEARRERERRRKEERERRR ERE 


T*TEST 26 TEST CHO GROUND 


RRR RAAEAAAAAEAAAEAARAAEEREAAAAAEARAEEAEAAERERAAEEREEEERAEE EHR 


T5126: #STN,STSTNM 
MOV 


3:00 10 ITERATIONS 


CONVERT 8 TIMES 
COMPARE RESULTS 
; NAL 


; TOLERANCE 
;ERROR ON A/D CHANNEL 
FERRARA AERA E AAA AEE AA RARER ERRERERR ERR EH 


S*TEST 27 TEST CH1 +4.5 VOLT 


© RRA AAAAAAAAAAAAAAAAEEAAAAAAAAAAERAAAAAERAAAAARAERAARRAEERRERHEKE 


tS127: 
#10, STIMES 3:D0 10 ITERATIONS 
RS, CONVRT ; CONVERT ? TIMES 


3 L 
R5, COMPAR ; COMPARE RESULTS 
: INAL 
; TOLERANCE 
ERROR ON A/D CHANNEL 
MUTI II TILL LLL LLL iit iii iii iii iii iii ye) 


SeTEST 30 TEST CH2 -4.5 VOLT 


JL UAE AAA AAA A RARER AERA AE AERA RARE AREER AAEERAREREREEAAAR ARERR RS 


TST30: SCOPE 
MOV #10, STIMES 3:D0 10 ITERATIONS 
T : RT 8 TIMES 


a. R5.,CONVR ; CONVE 
JSR RS, COMPAR 
oat 
v326 
PTTTTTITITITTLLI TILL LLL LLL LLL 


S*TEST 31 TEST GROUND ON CHANNELS 4 = 17 


TS131: 

#10, STIMES 7:D0 10 ITERATIONS 
[SET UP FIRST CHANNEL 
: HANNE L 


18: RS. CONVRT [CONVERT C 


RS, COMPAR : TEST RESULTS 


SEQ 0031 
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CVADAB.P11 17-JUL-78 00:00 T32 TEST VERNIER OFFSET DAC ON CHO 


SERRA AREA AAA AREA AREA EAE E EERE AERA ERA EA AE AER AREA AEE RRRERE RARE ES 


i*TEST 32 TEST VCRNIER OFFSET DAC ON CHO 


5 RRA AEAAA AAA RARER AAA REAR EAA AERA ARERR REAR AR AREER EAA ES 


1$132: 
#1,STIMES 3:D0 1 ITERATION 
@ADBUF F + Ae VERNIER D = 0 
RS, CONVRT ;CONV. CHO, DIRECT VERNIER DAC 


SAVE VALUE IN R4 
SET VERNIER DAC = 377 
R5, CONVRT CONVERT IT 


001356 R4, TEMP ; TEMP=DIFF. vd ee VALUE & PREVIOUS 
011150 d R5, COMPAR [COMPARE RESULTS 


RARER AEAAAAEEAAAAAAERAEARARARAAARERAAARREAERAEEEE 


TeTEST 33 OFFSET ON CHO 


PE Aa kele he hatehahehehataiahetahehahehehahaiaheiataiaiaieheiahetiieieieieieieielateiateteiaheiaiaisieieicieiaieieieieieielciehel 


1S133: 
#1, STIMES 3:00 1 ITERATION 
LOAD C 


;TYPE OFFSET 
31S RESULT WITHIN LIMITS? 


=NO-ERROR 
; YES~-OK 


3;G0 TO NEXT TEST 
012265 





3 
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CVADAB.P11 17-JUL-78 00:00 134 TEST RAMP RANGE, CH3 SEQ 0033 


PE dh hbo d kb hedadehahahehaheiedeheiahietaiateiaiciaietaiaieietaheieiaieteiaieieiaieteiaiaieiaiaieiaieieieinieieiaiaieiaiahel 


;*TEST 34 TEST RAMP RANGE, CH3 
PPPS OCT T TTT TTT TTT ETT TTTTTTTTTTTTITITITITI TTT 
TS134: 
000001 001160 #1 STINES :D0 THIS ONCE 
007777 arr? ZINIT R3 VALUE 


RS 
001400 174574 R400 aSTREG * SETUP FOR CH3 
047040 #20000. ,R2 SSETUP FOR 20,000 CONVERSIONS 


174560 
174556 


174550 sHIT A NEW HIGH 
174544 : 


BGE 4$ 
174536 HIT A NEW LOW 


001356 
011150 4 R5, COMPAR 


4 ;RAMP DIDN'T REACH LOW END OF RANGE 
R4, TEMP 
RS, COMPAR 


® ;RAMP DIDN'T REACH HIGH END OF RANGE 
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CVADAB.P11 17-JUL=78 00:00 13 NOISE TEST, 1 EDGE 


J LUMAR AAA AAAAERAE HANA RATE AEA AE REAARAAAAAEAAAERERARR ERR R EAA ES 


;*TEST 35 NOISE TEST, 1 EDGE 


Hh daiehatahahetetaiaiatatetatataiaiaieiatntataiaiaiaieieieiniaiaietainiainieieininteiaieininiaieiaiaieieiaiaieiaiaieiaiaialel 


TS135: 
#1, STIMES 3:D0 1 ITERATION 
IMSG 


CHANL 

1$: CHANL , DUMMY 
PC, GETEDG 
RMS 


PEAK CLEAR PEAK VALUE 
RS, SARSUB D0 SAR ROUTINE AT 16% 


001404 ; DAC .RMS :ADD RESULT TO RMS 
RS, SARSUB :D0 SAR ROUTINE AT 84% 


84. 
001404 DAC ,RMS ; SUBTRACT RESULT FROM RMS 
RS, SARSUB DO SAR ROUTINE AT 1% 


001406 DAC ,PEAK zADD RESULT TO PEAK 
SR RS, SARSUB ;DO SAR ROUTINE AT 99% 


001406 DAC PEAK ; SUBTRACT RESULT FROM PEAK 
007106 #1, EDGFLG 
PC, TYPRP ; TYPE RMS AND PEAK VALUES 
NC CHANL :GET NEXT CHANNEL 
001372 aa CHANNEL 3? 


3 NO0 
CHANL ; CHANNEL 3 IS SKIPED 
001372 2%: #17, CHANL 7; DONE? 
~ BNE 1$ 33N0 
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CVADAB.P11 17=JUL=78 00:00 136 INTERCHANNEL SETTLING TEST, 1 EDGE SEQ 0035 


+ PERRARAAAAAAEAAAAARAAAAAEEAAERAAAAAAAAAAARAAAAAEAAARERAARAEETERREE 


TeTEST 36 INTERCHANNEL SETTLING TEST, 1 EDGE 


+ RRRRAAAAAARAEAARAAARARAAEEAARAEAERAAARAAAAAKRAKAKAKRARAEAAA AAA AHe 


TST36: 
::D0 1 ITERATION 
:TYPE ‘SETTLING TEST’’ 
‘DO TEST BETWEEN CHANNEL 1 AND 2 


—Ww— 


;GET EDGE VALUES 


iSCALING = ,02 LSB 
* Vaan MAKE IT .017 LSB 


R2 MAKE IT POSITIVE 
R2,RS 
#1, EDGFLG 


R88 


i TYPE SETTLING INFORMATION 
; DONE ? 


+3 YES 
SETTLE THE OTHER WAY 


SESRSR 


o 


3$: 


+ SRR AFateeeeeeeeeeteeaneteaeetenenaeeaeaeeaeaaeaaaaaeeae 


S*TEST 37 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST 


15137: SCOPE 
MOV 


—— 


#1 STIMES 7;D0 1 ITERATION 
SPASS zFIRST TIME-SKIP DIFLIN 


LEND 
PC .DIFLIN 
PC ;RETURN TO TEST SECTION 


#4001, EDGE :4000,4001 EDGE 
RS, SARSUB 


DAC, TEMP 
#4000 . EDGE 33777,4000 EDGE 
RS, SARSUB 
DAC, TEMP 
#400, TEMP 


005 
005 
005 
005 
005 
005134 
005136 
005144 
005150 
005152 
005156 
005166 
008172 

74 
316 

14 

16 


SS 
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CVADAB.P11 17-JUL-78 00:00 13 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST 


001356 TOFF: TEMP ,R2 
»POSITV 


7331S THE NUMBER POSITIVE? 


18: 
; TYPE ASCIZ STRING 


;DECREMENT COUNT 


‘RESET COUNT = 
‘TYPE A CARRIAGE RETURN AND LINE FEED 


: TYPE FOUR (4) SPACES 
TCLEAR DELAY 
SCLEAR INTERRUPT ENABLE 
t1S KEYBOARD FLAG SET? 


YES 
[1S DELAY ZERO? 


SCLEAR FLAG 
“SET INTERRUPT ENABLE 
[TEST LAST CONVERSION 


; TOLERANCE .04 LSB 


5$ 3 
#2, (SP) [BUMP RETURN ADDRESS 
#2, (SP) SBUMP RETURN ADDRESS 2 WORDS 


- CCHAN zASK FOR CHANNEL 

READ CHANNEL NUMBER 
(SP) +, CHANL STORE CHANNEL NUMBER 
CHANL , DUMMY L 


LOAD DUMMY 
-SEL SELECT OFFSET OR GAIN ADJUST 


“GET TEST 
(SP)+,RO ZMOVE POINTER TO RO 

AJOF +:YES, GO TO ADJUST OFFSET 
(RO) .#°G tis 1f 'G'? 

AJGAIN 3 

; SOUS > TYPE 


sikiithiiihit 


(RO) "0 31S 17° 
YES., G0 TO ADJUST GAIN 


005322 
324 
382 
340 
344 
346 
350 
352 
356 
362 
364 
370 
372 
376 

005404 

005410 

005412 

005414 

005420 

005422 

0054 

0054 

005434 
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CVADAB.P11 17-JUL=78 00:00 13 DIFFERENTIAL LINEARITY AND RELATIVE ACCURACY TEST SEQ 0037 


012417 AJOFF : ;GROUND CHANNEL 

:WAIT FOR CR 

:POP 1 WORD OFF STACK 

012357 18: ZADJUST_MESSAGE 

012456 RR iTYPE ‘TYPE CR WHEN READY’ 
000005 #5.R3 :SET UP COUNT 

005160 28: :TEST AND TYPE OFFSET ERROR 
005234 TOF F i TYPE OFFSET 

005256 s ;CHECK FOR A CHARACTER AND DELAY 


‘NOT WITHIN TOLLERANCE, TRY AGAIN 


002262 JMP 
OiSze2 ; INPUT #5.115 VOLTS ON CHANNEL 
012456 T 


;WAIT FOR CR 
[POP 1 WORD OFF STACK 
012551 : SADJUST MESSAGE 
MOL SB [TYPE '* FOR 0.00 LSB ERROR’ 


:SET UP COUNT 
;LOOK FOR 7776,7777 EDGE 


S88 
ec 


:SAVE DAC 
;LOOK FOR 7775,7776 EDGE 


g3 
$g88 


| 
a 


; SULTS 
OFFSET RESULT 

: TYPE GAIN 

CHECK FOR CHARACTER AND DELAY 


SINOT WITHIN TOLLERANCE, TRY AGAIN 


SSSSZESs 
sEddS 
ated S11 


000005 


o 


694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 


g 
: 
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707 


Ss 


eh PP PPE hh Sp 
wevvOOwoOouswn—o 


NABH FIITS 


aigd¥ysssse 


3 


005752 
005756 
005764 
005766 
005772 
005774 
006000 
006002 
006004 
006005 
006006 
006012 
006014 
006016 
006020 
006022 
006026 


17-JUL-78 00 


012737 


mae bh 30A(1052) ia 5 


012131 


001620 


000100 
173356 
000010 
173346 
173344 
020000 


173150 
012134 


. SBTTL 
001374 BEGINP: oh 


173376 


3 
15:54 PAGE 32 
T VALUES ROUTINE 


PRINT VALUES ROUTINE 
#BEGINE , TADDR 


=(SP) 
#1$,-(SP) 


#177490, R0 
agit! aSwR 
 * 

RO, =(SP) 


#RE TURN ,@VECTOR 
RO 


#B1T6,RO 
RO, @STREG 
#10,R2 
aSTREG 


@ADBUF F ,RO 
Yaa 


; TEST ADDRESS IN TADDR 
sCLEAR STATUS REGISTER 
; TYPE OUT HEADING 
;CLEAR PSW 


+ READ CHANNEL + SWITCH REG. 


t1S BIT 13 “i 
r:YES.SKIP TYPEOUT 


2 SAVE RO FOR TYPEOUT 


‘Swi TCH BYTES 


LOAD THE CHANNE 
: TYPEOUT COUNTER 


1 SET, TYPE OUT LIS 
:PUT VALUE in DISPLAY FOR DISPLAY CONTRO 
;REPEAT CONVERSION 


;SAVE RO FOR TYPEOUT 
;ZPRINT OC TAL geht VALUE 
=-OCTAL ASCII 


TYPE 
TITYPE 4 DIGIT(S) 
i: TYPE LEADING ZEROS 


;DECREMENT THE COUNTER 
NO CARRIAGE RETURN 

7 CARRIAGE RETURN 
[REPEAT CONVERSION 
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CVADAB.P11 17-JUL=78 00:00 LOGIC TEST SECTION SEQ 0039 


.SBTTL LOGIC TEST SECTION 
006030 001374 BEGL: MOV GL, ADDR 
002464 PC, TESTAD 
002670 1$: » PC.BEGINE 
006206 PC -BUMPAD 


1$ 
006042 #1$,AGTST 
011650 SEOP : TYPE END OF PASS 


AUTO TEST 
006066 TEST ADDRESS 
002464 7NO. OF AD'S TO BE TESTED 
002670 : PC BEG :LOGIC TESTS 
013057 -MEND ; TYPE END OF LOGIC TEST 
001316 MOV STREG,=(SP) 


PE 
6 TYPE 6 DIGITS 
1 ; TYPE LEADING ZEROS 
001171 . SCRLF STYPE A CR.LF 
PC ,WRAP 
+ ated TEST NEXT A/D 


1 
#1$.AGTST 
SEOP 


sTEST ADDRESS 


TYPE END OF PASS 


TEST ADDRESS 
PC, TESTAD NO. OF AD'S TO BE TESTED 
PC ,WRAP par as TESTS 
PC ;BUMPAD MORE A/D‘'S TO BE TESTED? 
1$ : YES-GO Test NEXT ADV11 
#1$,AGTST 
SEOP ; INCREMENTS SPASS 
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CVADAB.P11 17-JUL-78 00:00 DETERMINE IF MORE ADV11°S TO BE TESTED 


sad IF MORE ADV11°S 7 BE TESTED 
NBEXT *$? 


TIONAL 
FIXADR NO=INITIALIZE ADDRESSES 
TSTBIT :MOVE all TO NEXT MODULE 
VADR, STREG SET UP 

VADR,ADST1 

VADR , ADBUF F : 

VVCT. VECTOR “SET UP NEW VECTOR 
VVCT.VECTRI 

VVCT, VECTR2 

WCT.VECTRS 


;ONE LESS ADV11 


:SET UP ERRVEC 

SETUP RESERVED INST. VECTOR 
© INITIALIZE MODULE ERROR TEST BIT 

RELOAD INITIAL ADDRESSES 


cantare 
#170000, VECTOR 
SvecTial _BASEBR 
BR+1 


BASE 
VECTOR, acemt 
#2, VECTRI 
VECTOR, vac tne 
#4,VECTR 
VECTOR, VECTR3 
#6,VECTR3 
avecTRi 
MOV NMBEXT .NBEXT ;RESET COUNTER 
;;LOAD .+2 AND HALT TRAP CATCH;; 
BYPASS: MOV #216,R0 sFILL +2 
MOV #214,R1 ;LOAD HALT 
R1,KBVECT 


;CLEAR HIGH BYTE 


; TEST NEXT A/D 


PC 
(RO) +, (R1)+ 
ated ade 
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CVADAB.P11 17-JUL-78 00:00 DETERMINE IF MORE ADV11'S TO BE TESTED 
edt TYPSET: TYPDC 
104401 012141 TYPE -LSB 
013746 001362 CH2,=(SP) oe on CH2 FOR TYPEOUT 


YPE CH 
>3G0 bars ASCII 
2 +3 TYPE 2 DIGIT(S) 
° 0 UPPRESS PLEADING ZEROS 
013777 -MAT TYPE ASCIZ STRING 
007044 PC, TYPEDG 
012154 


SETCH 
001360 CH1,-(SP) oh oy FOR TYPEOUT 
3260 Dr arattce ASCII 
ie TYPE 2 DIGIT(S) 
3; SUPPRESS LEADING ZEROS 
012176 
001360 006632 


006632 
172474 #200, 
RS, CONVRT 


000000 : 0 
013746 TEMP , (SP) : SAVE TEMP FOR TYPEOUT 
3: TYPE VALUE 
104403 ;GO TYPE--OCTAL ASCII 
004 . TYPE 4 DIGIT(S) 
3: TYPE LEADING ZEROS 


001 
020437 
00 


3003 ERR 
104401 012245 . OKMSG 
000207 PC 
104401 012567 ERR: -ERMSG 
000207 PC 


SUBROUTINE FOR SETTLING TESTS;; 
013737 001 001370 S&T1A: MOV CH2, DUMMY ;LOAD DUMMY 
004537 0 J RS, SARSUB =DO SAR ROUTINE AT 50% 
sADD RESULT TO R2 
HANGE DUMMY VALUE 
RS, SARSUB *DO SAR ROUTINE AT 50% 


DAC ,R2 ; SUBTRACT RESULT FROM R2 
PC E TURN 


001370 
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CVADAB.P11 17-JUL-78 00:00 DETERMINE IF MORE ADV11°S TO BE TESTED 


; SUBROUTINE TO GET EDGE VALUE 
CALL PC ,GETEDG 
[CONVERSIONS ON A/D CHANNEL 'CHANL' 
;RESULT IN EDGE, USES RO 
012777 000200 172364 GETEDG: MOV * #200, @ADBUF F ; LOAD ar DAC 
001372 MOVB CHANL 0 TC 


. HANNE L 
;SE1 UP A.D STATUS REG. 
000100 RO TENABLE INTPPT. 
172342 RO sasRec 


000100 #100,R sDAC SETTLING DELAY 
001420 
000010 0,RO 

620 172322 ;RETURN ADDRESS 


001 
172310 CONV: TREG © START CONVERSION 
WAIT FOR INTERRUPT 
001420 


3; SUBROUTINE TO TYPE EDGE VALUES; ; 
TYPEDG: MOV EDGE ,R3 
MOV R3,-(SP) SAVE R3_FOR TYPEOUT 


i 
EDGFLG,#1 
RET 


88 
1 
1 
1 
1 


a hel 


TYPE LEADING ZEROS 


388 


: TYPE ASCIZ STRING 
R3,-(SP) iSAVE R3 F TYPEOUT 
zITYPE EDGE VALUE 
TYPE=-OCTAL ASCII 
TITYPE 4 DIGIT(S) 
72 TYPE LEADING ZEROS 


ra hae ae 
— 
wee why 


3 
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CVADAB.P11 17-JUL=78 00:00 DETERMINE IF MORE ADV11"°S TO BE TESTED 


; SUBROUTINE TO DO SUCCESSIVE APPROXIMATION ROUTINE 
:CALL=JSR_—s«R5,, SARSUB 
3 XXX; XXX=PERCENT 
;RESULT RETURNED IN "DAC’,USES RO,R1,R4 
SARSUB: MOV (R5)+,PERCNT 
PERCNT 
PERCNT 
PERCNT ;RESCALE PERCENT FOR 1600. 
PERCNT ;POINTS PER BURST 
#200,BITPNT INITIALIZE BIT POINTER AT MSB 
DAC INITIALIZE DAC VALUE 


RO 
BITPNT ,DAC TRY BIT 
C ,@ADBUF 
SET UP FOR 1600. CONVERSIONS 
; HANNE L 


012537 
006337 


GET PERCENT 


3888 


BESeoR 


oO 
~ | 


SSSSVssss 
OBNAARWN=O 


.@ADS 
RETURN ,@VECTOR 


#101,a@STREG ; 
WAIT FOR INTERRUPT 
172102 @ADBUF F ,R4 ;DUMMY READ 

001372 _. RS 


SWAB 
000101 #101 ,R4 ; INTERRUPT ENABLE START 
172060 R4,aSTREG ; JUMP TO CHANNEL + START CONVERT 
172056 WAIT FOR INTERRUPT 


8 


;COUNT RESULTS .LT. EDGE 


S BITPNT ,DAC ; TAKE THE BIT OUT 
SHIFT: TPNT 


;*ROUTINE FOR PROCESSERS THAT CAN'T DO A SOB INSTRUCTION 


DELAY4: DEC RO ;DECREMENT RO, IS IT ZERO? 
BNE DELAYS : 
RTI ;RETURN 





MAINDEC-11-DVADA-8 


CVADAB.P11 


17-JUL-78 


MACY11 30A(1052) 
00:00 


177770 
171604 


171600 
007777 


017776 
077777 017776 


F 
25-JUL-78 15:54 PAGE 2 


8 
DETERMINE IF MORE ADV11'S TO BE TESTED 


BIFLIN 


RS 
#177770,R0 
CONVR 

RO, DELAYS 
@STREG 


@ADBUF F , 
DELAY! 
RO,#7777 
DELAY2 


BUF FER(RO) 


tt ol LINEARITY SUBROUTINE; ; 
YPE -MSG20 


;SET UP RANDOM NUMBER GENERATOR 


34096 WORDS FOR HISTOGRAM 
:CLEAR BUFFER AREA 


;DISTRIBUTION BUFFER POINTER 
7200. WORDS FOR DISTRIBUTION 


;CLEAR DISTRIBUTION BUFFER AREA 


; CHANNEL 3 


LOAD MUX BITS 


NOMINAL STATE WIDTH - 1 LSB 


MASK IT TO 4 BITS ONLY 


STALL TIME 
:START CONVERSION 


iGET CONVERTED VALUE 
: IGNORE IF 
ZIGNORE IF =7777 


MAKE HISTOGRAM 


Serre ee ETERS PREVENT OVERFLOW 
y 
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CVADAB.P11 17-JUL=78 00:00 DETERMINE IF MORE ADV11"°S TO BE TESTED 


993 001356 NOTOK : 
0004 


BR OKAY 
007777 DELAY1: ;EQUALIZE LOOP TIME 
BE sWITH DUMMY INSTR. 
DELAY2: 


001356 


001416 
007776 
020000 


:GET STATE WIDTH 
;1 LSB = 800. 


SSSSSSSSSS3ES33F 


— 


224544 
VrWN—O 


Re 31 LSB = 100. 
000310 : ;OUT OF RANGE? 
NRNGE 


001434 on YES - INCREMENT COUNTER 


a ee ed ed td ed od 


oooo°o 


: 2 
017156 > ;MAKE STATE WIDTH DISTRIBUTION 
000062 " 31S IT 1/2 LSB? 
BGE NOTNAR 


001350 
1S 17 A SKIPPED STATE? 


001354 
BR TYPBAD 
000226 : . 31S 17 1.5 LSB? 
AST 


001346 
001352 


001352 
012111 
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CVADAB.P11 17-JUL-78 00:00 DETERMINE IF MORE ADV11"°S TO BE TESTED 


LAST: RO 

BNE READ 
000177 014562 #177,DECPNT 
001354 MO SKIPST,R2 eee it OF SKIPPED STATES 
012604 , SKPMSG MESSAGE 
001354 are 
012567 ; "ERROR'' 

BR NAR 
012245 
001350 :GET NO; OF NARROW STATES 
SSAGE 


; TYPE NO. OF WIDE STATES 
MESSAGE 

; TYPE NO. OF STATES OUTSIDE 2 LSB 
012724 SSAGE 
001434 
012567 


01 001356 


poles 
TYPE NO. OF STATES OUTSIDE LIMITS 


000056 
012757 
000051 


; COMPARE IT TO NOMINAL 
; TYPE * ERROR’ 

TY ~ 

;vT55? 

;WAIT AWHILE, THEN CLEAR VTS5 
TYPE BUFFI-PRINT GRID 


[POINTER TO STATE WIDTH DISTRIBUTION 
360 . TIMES UP TO 2 LSB 


3 


ooo 


ore? zTYPE ASCIZ STRING 
10646 


C2 
PC DELCLR 
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CVADAB.P11 17-JUL-78 00:00 DETERMINE IF MORE ADV11'S TO BE TESTED 


; CHANGE HISTOGRAM ERROR TO RELATIVE ACCURACY ERROR 


RELACC: CLR ;RUNNING ERROR = 0 
CLR ;MAXIMUM ERROR = 0 


33333333 


MO’ 
NXTSTA: (RO) ,R2 sSTATE WIDTH = R2 
S a R STATE WIDTH ERROR IN R2 
;UPDATE RUNNING ERROR 


: PO ve 

; CHECK AGAINST PREVIOUS MAX. ERROR 
NOT A NEW MAXIMUM 

ZUPDATE MAXIMUM IN R3 


— es os YS Ys SS Ss 
SELESEAS 


020000 


A R ;RS=EDGE VALUE AT MAX. RELACC 
037774 RO ,ABUFFER+8190. ;DONE? 

BNE NXTSTA NO = REPEAT 
;RESCALE FROM 1 LSB = 800. SCALING 
:TO0 1 LSB = 100. SCALING 


ee ed tk ed ee ot 
ed ed ed nd td od ad 
ODOWOUSWN—O 


to a et 
VRUSSSSNUS 


—b a ee 
~~ wee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
( 
( 
( 
( 
1 
1 
1 
( 
( 
( 
( 
1 
1 
1 
1 
1 
1 
1 
1 
1 


oe Wd ss 4 a = 


FUNSSVSVS 
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MAINDEC-11-DVADA-8 MACY11 30A(1052) 25-JUL=78 15:54 PAGE 42 
CVADAB.P11 17-JUL-78 00:00 DETERMINE IF MORE ADV11'S TO BE TESTED 


GETDAT: MOV (RO) ,R2 ;GET RELATIVE ACCURACY ERROR SCALED 1LS8 = 800. 
as R sRESCALE IT TO 1 LSB = 100. 


— 
_ 
SE 
= 
® 
™ 
* 


ASR 

ADC R 
000166 ADD . ;AND MOVE IT TO MID-SCREEN 
;PUlT IT BACK INTO BUFFER 


017776 


BRARRSS 
SEFEALESS 

velelololol~l~l~l-lolol~) 

ee ee es 


a tk th ot os 
o 
—— 


O@N 
32333 AAA} 


SESLSSELAEERKSS 


7MINIMUM 
7 MAXIMUM 


NEW MINIMUM 


NEW MAX]MUM 


eooooeoooesoo 
SSSSSSSSOSEE 
SEMEN SoS ooN 


PER RGekeccaesuneevears 


NXT CMP 

MIN, (RG) 

MAX. (RS) ¢ 

(Rass, (R5)* ;BUMP EACH ONCE MORE 


ooo 


TYPE BUFF2 
; TYPE ASCIZ STRING 


zTYPE ASCIZ STRING 


PEEPF PEPER ee EEL Ee er eee EEeEeEee et oe 


~ 
£%g2 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SS ee eens FH HF FH tr tr tr tr tr tyr ty oy ty 
EVLSISVSARANISSELEATLERIS SSVFALUNLS 


SooooooOoCoooCooooCoo°oo 


@ 
— 
w 





MAINDEC=11-DVADA-8 


CVADAB.P11 


~ 
~ 
co 
wv 
oO 
f 


es es “a = ss 49 ss 


Selearakcs 


a 


me ek ek a ek td ot ot as St = I ss 
WOU ~~ ~~ Oo 
— 
— 


MMNNAAR RANT 


> 4) se 4 a ss ts 


—+ 4 9 


1219 


— 

mM 

— 

@ 
ooooooo0oo 


SELSSRELSESESE 
S 
= 


17-JUL-78 


032777 
001402 


000000 
000407 


MACY11 30A(1052) 
00:00 


K_ 4 
25-JUL-78 15:54 PAGE 33 


DETERMINE IF MORE ADV11'S TO BE TESTED 


010000 170264 DELCLR: BIT #B1T12,aSwR 
BEQ 1$ 
HALT 
BR 3$ 
1$: CLR RO 
000020 MOV #20,R1 
23: DEC RO 
BNF 23 
DEC R1 
23 
014074 38: TBE gyTINIT 
rpe RMS AND PEAK VALUES;: 
012203 TYPRP: TYPE ,NOI 
001404 TST 
BPL POSRMS 
001404 CLR RMS 
001406 POSRMS: TST PEAK 
BPL POSPEA 
001406 CLR PEAK 
001406 POSPEA: MOV RMS .R2 
TYPDC 
TYPE ME SR 
001406 mov PEAK .R2 
TYPDC 
013061 TYPE mas 
007044 JSR PC, TYPEDG 
012213 TYPE 2 CHAN 
001372 CMANL , = (SP) 
T 
BYTE ; 
“BYTE 
001406 011624 CMP RMS , VNR 
act ER 
001406 011626 CMP PEAK, VNP 
act ER 
012245 TYPE 
als PC 
012567 ER: TYPE ERMSG 
RIS PC 


i TEST FOR ce! FOR + yaad 
;;DON'T HALT FOR DISPLAY 


;DELAY BEFORE CLEANING SCREEN 


;RMS<0,SET RMS=0 
;PEAK<O,SET PEAK=0 
; TYPE *' LSB RMS, ** 
; TYPE *' LSB PEAK AT "’ 
; TYPE ** ON CHANNEL *° 
77 SAVE CHANL FOR TYPEOUT 


23 TPE CHANL 
260 ese ste ASCII 


WITHIN LIMITS? 


SEQ 0049 


MAINDEC-11-DVADA-8 MACY11 30A(1052) ial my 4 15:54 PAGE 
CVADAB.P11 17=JUL-78 00:00 TERMINE IF MORE ADV11°S TO BE TESTED SEQ 0050 


: ROUTINE TO AVERAGE 8 CONVERSIONS; ; 
CONVRT: MOV (R5)¢,RO 


BASECH,RO 
RO, CHANL 
a 


GET CHANNEL VALUE 


He @STREG [LOAD CHANNEL INTO MIX BITS 
a #1000 .RO 


oO 
—_ 
—s 


eS 
#RE TURN, @VECTOR LOAD VECTOR 
#10,R0 7SET UP iounT ER 
#101 ,aSTREG -SET INTRPT. EN., START CONV. 
jWwAIT FoR CONVERSION 
AD BUFFER 


;D0 8 TIMES 


Oe et at ot at at at ot HOOD 


CoOCCOCOOCCCCO 
SNSSLS SARKRRNEAKSNS 


as a a ss ss 
te nt a ee se et 


a 


S88 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BARAK ESESEARE 


—o eet ae a et ss as ss ss 
ae nt a 


rrr 


coooocoooooooo 
oe wet eo 
NO 
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MAINDEC-11-DVADA-8 MACY11 30A(1052) salina 15:54 PAGE 35 
CVADAB.P11 17-JUL=78 00:00 DETERMINE IF MORE ADV11'S TO BE TESTED 


-; SUBROUTINE TO TYPE INTRPT, TST MSG.;; 
bumw: TST $PASS 


FACES 
Na 


a et ot 
uw 


i TYPE assis ok tase 
RO FOR TYPEOU 


E FEE 


te et 
+ 


ie : SUPPRESS LEADING ZEROS 


~awewww 


013103 


ooooo oo°o°o°oo 
—2a224224 Sa 


re 
ee 


ONAD 
001316 MOV ° 23 SAVE STREG FOR TYPEOUT 
ADDRESS 


Ce te 
a 
—— 


“* DIGIT 
3: TYPE CEADING. ZEROS 





& 
MAINDE(C-11-DVADA-8 MACY11 30A(1052) 25-JUL-75 15:54 PAGE 36 
CVADAB.P11 17-JUL-78 00:00 DETERMINE IF MORE ADVI1"S TO BE TESTED 


; SUBROUTINE TO RESET & SET INTRPT, EN.; 
000005 RST: RESET 
052777 000100 167614 
00504 


;CLEAR PSw 
011340 


oooo°ceo 
lt lt a at 
lt a a a a 
AWw 
Eeesers 


ROUTINE TO LOAD VLAUE INTO R2 
zAS A VISS Y-VALUE 


000353 
000353 
177740 
000040 
167550 : PRINT CHARACTER 
167544 


ooooo°oco0°o°o 
et a a a es ee 
SS ,- ,_ ,_ ,_ , 
w ew 

SEESLSEEE 


R3 
177770 #177770,R3 
000040 RS 


BIS 

167514 : asiPs PRINT CHARACTER 
BPL B11 

167510 — Si 


SSSSSSSESESE SE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
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MA C-11=DVADA-8 MACY11 30A(1052) 25=JUL=78 15:54 PAGE 8 
CVADAB CPTI 17-JUL-78 00:00 DETERMINE IF MORE ADV11"S TO BE TESTED SEQ 0053 


— 
Ww 
= 
_ 


3; SUBROUTINE TO TYPE DECIMAL VALUE;; 
sz IN R2 AS X.XX:; 
011444 DECTYP: TST R2 ; TEST VALUE TO BE TYPED 
10000 BPL 
;TYPE MINUS SIGN 


R 
POS: . 3>999. REPLACE IT WITH 999. 


WWWNWAWWNWAG 
ab ah ah th an cath a a 
OONAUISWIY 


. 2 
OKAYD: CLEAR ONES 
;CLEAR TENS 
014561 C S CLEAR HUNS 
TESTR2: R ;CONVERT VALUE TO A DECIMAL VALUE 
BE 


014564 
014564 


014564 
014563 
014563 


014563 
014561 


BR 
000060 014561 ;PREPARE FOR TYPOUT 
000060 014563 BI 
000060 014564 
014561 HUNS TYPE VALUE 


; TOLERANCE VALUES FOR FUNCTIONAL TESTS 


BESS ENS 


wie 


Ne 


WWIWWWWIWW WWW WWW 
SIRAK 


W 
Oo 


wr 


SYSTEM 
FIELD USE ON SPEC TESTS 


052777 000100 167300 AGATST: #100, a$TKS 
000137 J a(PCs+ 
AGTST: GIN 


1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BARES SSSESERSES 
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CVADAB.P11 17-JUL-78 00:00 F PASS ROUTINE SEQ 0054 
ety .SBTTL END OF PASS ROUTINE 
(35 SAAR ARR AEARER ERE TERRE AERA RARER REE REREAD 
(1) ;*INCREMENT THE PASS NUMBER ($PASS) 
(1) :e]F THERES A MONI TOR GO TO IT 
NS :*]F THERE ISN'T JUMP TO AGATST 
(1) 011650 SEOP: 
(2) 011650 000240 NOP 
(1) 011652 005037 001102 CLR STSTNM i TERO THE TEST NUMBER 
(1) 011656 005037 001160 CLR STIMES ;ZERO THE NUMBER OF ITERATIONS 
(1) 011662 005237 001202 INC SPASS ; INCREMENT THE PASS NUMBER 
(1) 011666 042737 100000 001202 BIC #100000, $PASS = DON" T ALLOW A NEG. NUMBER 
(1) 011674 005327 DEC (PC)+ ;;LOOP? 
(1) 011676 000001 SEOPCT: .WORD 1 
(1) 011700 003035 BGT SDOAGN sc YES 
(1) 011702 012737 MOV (PC) +,a(PC)+ szRESTORE COUNTER 
(1) 011704 SENDCT: .WORD 1 
(1) 011706 011676 SEOPCT 
(3) 011710 104401 011716 TYPE 65$ pba ASCIZ STRING 
(3) 011714 000414 6&R 64$ ;GET OVER THE ASCIZ 
(3) 37658: .ASCIZ <15><12>/ENDPASS GOOD UNITS / 
(3) 011746 64$: 
(3) 011746 013746 001436 MOV GUNITS,-(SP) 7: SAVE GUNITS FOR TYPEOUT 
(3) 011752 104405 TYPBN 3:;G0 TYPE--BINARY ASCII 
(1) 011754 013700 000042 $GET42: MOV a742.R0 :;GET MONITOR ADDRESS 
(1) 011760 001405 SDOAGN 33 CH IF NO MONITOR 
(1) 011762 000005 RESET 3:CLEAR THE WORL 
(1) 011764 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
(1) 011766 000240 NOP 7: SAVE ROOM 
(1) 011770 000240 NOP $3 
(1) 011772 000240 NOP 7;ACT11 
(1) 011774 SDOAGN: 
(1) 011774 000137 JMP a(PC)+ 7 RETURN 
(1) 011776 011636 SRTNAD: .WORD AGATST 
(1) 0612000 377 377 000 SENULL: .BYTE <-1,-1,0 sZNULL CHARACTER STRING 
1) 012004 EVEN 


0 5 
:54 PAGE 39 


MAINDEC-11=-DVADA-8 25-JUL-78 15 
ASCII MESSAGES SEQ 0055 


CVADAB.P11 17-JUL-78 


1360 . SBTTL ASCII MESSAGES 
1361 012004 0 NOIMSG: .ASCIZ <15><12>/NOISE TEST/<15><12> 


e594 SETMSG: .ASCIZ <15><12>/SETTLING TEST/<15><12> 


MINUS: .BYTE 55,0 

QUEST: .BYTE 77,0 

AMSG: .BYTE 136,101,40,40,0 
-BYTE 136,103,40,49,0 


-BYTE 136,107,15,12,123,127,122,105,107,72,0 


833288 


<0 at ad 
ono 
MAN 


: .ASCIZ / LSB/<15><12> 
eASCIZ /=- / 

/STATE=- WIDTH/<15><12> 

/CH/ 

/ / 

/ LSB ON CH/ 

/ SETTLING FROM CH/ 

4 AT / 

/NOISE: / 

/ ON CHANNEL / 


/ DONE /<15><12> 
a/h 
/ OK/<15><12> 


<15><12>/TYPE CHANNEL & CR: / 


<15><12>/TYPE ‘0’ FOR OFFSET, ‘G’* FOR GAIN & CR: / 


guoaeas tes 
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MAINDEC-11-DVADA-8 MACY11 30A(1052) 25-JUL-78 15:54 PAGE 40 
CVADAB.P11 17-JUL-78 00:00 ASCII MESSAGES SEQ 0056 


1384 012357 045104 eASCII = <15><12>/ADJUST R15/ 
012364 


040412 1 
020124 030522 
1385 040 020122 : .ASCIZ / FOR 0.00 LSB ERROR/ 
030060 046040 
051122 
1386 015 gets : ASCII <15><12>/ INPUT A GROUND ON THE CHANNEL/ 


eASCIZ <15><12>/TYPE CR WHEN READY/<15><12> 


eASCIZ =<15><12>/INPUT +5.115 VOLTS ON THE CHANNEL / 


04 <15><12>/ADJUST R3/ 
031522 


2 « /+/ 
051105 / **ERROR**/<15><12> 
006452 


/ SKIPPED STATE(S)/ 


# NARROW (< 1/2 LSB) STATE(S)@<15><12> 


# WIDE (> 1 1/2 LSB) STATE(S)#<15><12> 


/ STATE(S) WIDER THAN 2 LSB/ 





. 
MAINDEC-11=DVADA-8 MACY11 30A(1052) 25-JUL=78 15:54 PAGE 41 
CVADAB.P11 17-JUL=78 00:00 ASCII] MESSAGES | SEQ 0057 


1397 012757 040 052123 052101 HAFMSG: .ASCIZ # STATE=WIDTH(S) OUTSIDE + OR = 1/2 LSB# 
0 4527 052104 


eASCIZ / LSB RMS, / 
-ASCIZ / LSB PEAK AT / 


«ASCII <15><12>/END OF LOGIC TESTS/ 


eASCIZ / ON ADV11 AT / 
eASCIZ / ADV11°S FOUND/<15><12> 


ASCII <12><12><12>H41/2 LSBA<15><12><12><12><12><12><12><12><12><12><12><12><1 


051514 -ASCIZ \=1/2LSB\ 


-EVEN 
051105 : .ASCIZ /DIFFERENTIAL LINEARITY:/<15><12> 
046101 
040505 
054524 006472 
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MAINDEC-11=DVADA-8 MACY11 30A(1052) 25=JUL-78 15:54 PAGE 42 
CVADAB.P11 17-JUL-78 00:00 ASCII] MESSAGES SEQ 0058 


1409 013234 020040 MSG16: .ASCII / STATE=WIDTH DISTRIBUTION/<15><12><12><12> 
013242 020040 
013250 
013256 


ASCI] / # OF STATES/<12><12><12><12><12><12><12><12><12><12><12><12><12><12>< 


STATE WIDTH (LSB)/<15> 


EEE 
RSF 


at ot a oS ot 
~~ 
3 


x 


0 
0 
0 
0 
0 
0 
0 
0 
0 


WAG 
Ww 


<15><12>/TYPE LETTER & CR FOR TEST: / 


g 


SEEESFECEEESESS 
LA 


/RELATIVE ACCURACY: /<15><12> 


§ 


/ LSB MAXIMUM AT / 


—a— 


BEESE 
RRS 


Z 
s 


<15><12>/PRINT VALUES~~/ 


lolelelelejlojloleleoj=) 
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MAINDEC-11=DVADA-8 MACY11 30A(1052) sind art 15:54 PAGE 43 
CVADAB.P11 17-JUL=78 00:00 1 MESSAGES SEQ 0059 


1418 at tags 040 04 pool ee ASKCH: .ASCIZ / SET CHANNEL IN SWR LOW BYTE/<15><12> 


<33><132> 
<33><62><33><110> ;CLEAR GRAPH MODE AND HOME 


«A <112> 
HS : .ASCIZ <15><12>/0F FSET =/ 
051514 : eASCIZ / LSB / 
052101 000040 MAT: eASCIZ / AT / 
METST: .ASCIZ <15><12>/ ENTERING TEST / 


BUFF1: BYTE  33,61,101,61,111,62,114,41,60,45,63,51,66,55,71,61,74,110,41,40,112,0 


—oo 


ROSRARR=ARBNSSRSE 


BUFF2: .BYTE 33,61,101,47,111,61,104,50,65,44,62,110,40,40,102.0 


—s 
R 
Non 


044 
040 
O35 


VTINIT: .BYTE  33,110,33,112,33.61.101,40, 33.62.0 ;HOME & ERASE SCREEN & CLEAR GRA 


BA Saks 


Oo 
aw 
Wow 
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MAINDEC-11-DVADA-8 MACY11 30A(1052) 25-JUL=78 15:54 PAGE 44 
CVADAB.P11 17-JUL-78 00:00 ASCI] MESSAGES 


geet? HEAD1: . ASCII] <15><12><12>/MD=-11-DVADA-8 ADV11 DIAGNOSTIC/<15><12> 


ASCII] <12>/A: AUTO TEST/ 
ASCII <15><12>/C: CALIBRATION/ 
ASCII <15><12>/P: PRINT VALUES/ 


ASCII] <15><12>/L: LOGIC/ 
.ASCIZ <15><12>/W: WRAPAROUND/<15><12> 


LASCIZ /STATUS REG. ERROR/ 
051117 
062514 EM2:  .ASCIZ /FAILED TO INTERRUPT/ 
044440 
052522 
sot :  ASCI2. /UNEXPECTED INTERRUPT / 
1122 


022057 : -ASCIZ MERROR ON A/D CHANNEL @ 
047116 


RI== > 


020 
082 
041 
047 
050 
051 
04 

041 
046 


— 
So 
w 
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MAINDEC-11=DVADA-8 MACY11 30A(1052) 25-JUL=78 15:54 PAGE 45 
CVADAB.P11 17-JUL-78 00:00 ASCII MESSAGES 


1441 014407 105 DH1: -ASCIZ /ERRPC STREG EXPECTED ACTUAL/ 
014414 5 


1442 105 041520 : 7ZERRPC STREG CHANNEL NOMINAL TOLERANCE ACTUAL/ 


04 
05210 
020103 DHS: ASCIZ STREG ACTUAL / 
051440 
0200460 
052524 
HUNS : 
DECPNT: .BYTE 
TENS: BYTE 
ONES: 
EVEN 
DTI: SERRPC, STREG, SGDDAT, SB8DDAT,0O 
DT2: SERRPC .STREG, CHANL , SG0DAT , SPREAD , SBDDAT .O 


0 


oT3: SERRPC .STREG, SHDDAT 0 
DF: 0 
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CVADAB.P11 17=JUL=78 00:00 TTY INPUT ROUTINE 


-SBTTL TTY INPUT ROUTINE 


+ MRRRRRRRRRAHRARAHAReteeeeeteateaeneeeaeeeeeeneanenaeanananeeene 


“ENABL LSB 
.DSABL LSB 


i a i a 


+ MARAE RRARHARteReteeeeeeeeenaeeeeetenteneneaeataneaearanetere 


*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


> *CALL 
: RDCHR 7: INPUT A SINGLE CHARACTER FROM THE TTY 
be RETURN HERE 7 CHARACTER IS ON THE STACK 

:* izWITH PARITY BIT STRIPPED OFF 


SRDCHR: 
18: 


(SP) ,=(SP) 
4 (SP) ,.2¢SP) 
astxs 


~ 
~ 


SP 
1$ : 
a$TKB,4(SP) - ME TT 
#°C(<177>.4(SP) ::GET RID OF JUNK IF ANY 
4(SP) #28 t:1S 17 A CONTROL-S? 

[BRANCH IF NO 
asixs T:WAIT FOR A CHARACTER 


LOOP UNTIL ITS THERE 
as KB -(SP) ER 
#°C17?, (SP) 
(SP)¢,421 


sen zeee 
Raa ssckees 


= 


$ 
4(SP) #140 
> Saat #175 
#40,4(SP) 


el el el el elt lt elt el ele eel ls cl els lle el cl cls calls ls cel lt lt ly calls cally elt cl ls ONS elt lt cell lt cel 


E 


ROL IN 32 INPUT 
RETURN HERE 7 ;ADDRESS OF FIRST CHARACTER WILL a ON THE STACK 
77 TERMINATOR WILL BE A BYTE OF ALi O°S 


R3,-(SP) 
esiTvIN.R3 
sSTVINGG. RS 


(SP), (RB) 
#177, iR3) 
33 

s 
(R3) 9% 
4% 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
‘ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ae ee ee ee ee ee es ae ee es ee ee ee SS we ee ee a 
wnn~w 


Oe ek ee ed ee ed et et et et 
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CVADAB.P11 =: 17=JUL=78 00:00 TTY INPUT ROUTINE SEQ 0063 
(1) 015014 122728 000015 CMPBsa#15, (R3)¢ s:CHECK FOR RETURN 
(1) 015020 0013 BNE +:LOOP IF NOT RETURN 
(1) 015022 105063 177777 CLRB 3s = 1 (R23) TCLEAR RETURN (THE 15) 
(1) 015 104401 001172 TYPE  ,SLF [TYPE A LINE FEED 
(1) 015032 012603 MOV (SP)+,R3 S:RESTORE R3 
(1) 015034 011646 MOV (SP) ,=(5P) T:ADJUST THE STACK AND PuT ADDRESS OF THE 
(1) 015036 016666 000004 000002 MOV 4 (SP) ,2¢SP) +: FIRST ASCII CHARACTER ON IT 
(1) 015044 012766 015056 000004 MOV #STTYIN,4(SP) 
(1) 015052 000002 aq! 7 ;RETURN 
(1) 0150546 000 98: BYTE 0 SSTORAGE FOR ASCII CHAR. TO TYPE 
(1) 015055 000 ‘BYTE 0 3 TERMINA NATOR 
(1) 015056 000010 STTYIN: .BLKB 8. RESERVE B BYTES FOR TTY INPUT 
(1) 015066 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> 3: CONTROL 
(1) 015073 136 006507 000012 $CNTLG: .ASCIZ <15><12> [CONTROL ‘'G"’ 
(1) 015100 005015 053523 02012 “ASCI2. <15><12>/SWR = /° 
(1) 015106 020075 000 
(1) 015111 040 047060 053505 SMNEW: .ASCIZ / NEW = / 
(1) 015116 036460 000060 


m5 
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CVADAB.P11 17-JUL=78 00:00 READ AN OCTAL NUMBER FROM THE TTY 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


PL AAAAaeeneneenaeedenneeeeraneaaenaaaaeananaeanaatanagenearaneees 

s*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

;*CHANGE IT TO BINARY. 

;*CALL: 

: RDOCT 77READ AN OCTAL NUMBER 

RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 
77HIGH ORDER BITS ARE IN SHIOCT 


PROVIDE SPACE FOR THE 
T NUMBER 


Swe we eee 


g 


o—-o0o0o0°o 
~ 
oa 


eessepeszes: 
Seessssarese 
SERDARESTCREEIE22 


177770 


O1se2e 


@ 
me 
Oo 


seSTRIP THE ASCII JUNK 

i :ADD IN THIS DIGIT 

CLEAN TERMINATOR FROM STACK 
33 THE RESULT 


77POP STACK INTO 
7 POP STACK INTO R 
77POP STACK INTO RO 


7 7 RETURN 
7 7MIGH ORDER BITS GO HERE 


Be 
a8 


4 
SF 


kk kt at ot = WI ot tt 


ee ee ee 


ooooo 
—— es 
gee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 


——Ww 
+ @ 

— 

os 


B 
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CVADAB.P11 17-JUL-78 00:00 SCOPE HANDLER ROUTINE 


-SBTTL SCOPE HANDLER ROUTINE 


“RARRRREHRERAARRERREARAREREHERRERHERAREHRAEARHRARAARAAAAAHRAAAAAAEEE 
*STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
; SAND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
+ © THE Sulu OPTIONS PROVIDED BY THIS ROUTINE ARE: 
: 1 LOOP ON : 
ERROR 
TEST IN SWR<7:0> 
37; SCOPE=10T 


pit #81114 .aSuR ; LOOP ON PRESENT TEST? 


BNE SOVE ves alas Swi4=1 
-#ARAESTART OF CODE FOR THE XOR iést 
$xTSTR: BR 6$ s1F CANNING ON THE "XOR'' TESTER CHANGE 
tC IMIS INSTRUCTION TO A “NOP’’ (NOP=240) 
@FERRVEC,-(SP) 3: SAVE THE CONTENTS OF THE ERROR VECTOR 
#53, aE RAVE C TIME 
av177060 


(SP) +, @#ERRVEC 

SSVLAD GO TO THE NEXT TEST 

(SP) +, (SP)¢ :iELEAR THE STACK AFTER A TIME OUT 

(SP)+ @MERRVEC =:RESTORE THE ERROR VECTOR 

7$ LOOP ON THE PRESENT TEST 

CODE FOR THE KOR testenaeaea 

#01108,asuR $3108 ON ON SPEC. TEST? 

@SuR,STSTN” £30 THE eet TEST? — SwR<7:0> 

SOVER IF YES 

SERFLG HAS AN ERROR OC CURRED? 
RMAX.SERFLG  ::MAX. ERRORS FOR THIS TEST OCCURRED? 


ry 109, aSuk 
SLPERR , $i PADR 
SOVER 


SERFLG 
STIMES 


1$ 
#81T11.aSuRr 33 
1$ : 


MOV 
TST 


Aw 
on 


SEREES 


R38 


PAAAAAAAAAAAAW 
Se Be Oe 
. ea Oe Oe 
—FAe 


SPASS 
1$ 
SICNT 
u we 5 SiCut 
#) .SICNT 
ya -STIMES 
TSTINM, STESTN 
(SP) ,SLPADR 


) 
) 
)) 
» 
) 
) 
» 
) 
1) 
1) 
iB 
2) 
» 
») 
» 
») 
) 
» 
») 
1) 
iB) 
) 
») 
») 
B 
) 
Bi 
iB 
1) 
iB 
») 
) 
») 
) 
iB) 
1) 
1) 
1) 
) 
1) 
1) 
) 
1) 
) 
1) 
) 
) 
) 
) 
) 
1) 
1) 
iP 


( 
( 
( 
( 
( 
N 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
N 
( 
( 
( 
( 
( 
« 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


SoooOooOoCoOOoOoOoOoOoOOoCooooSo co 

a ar a ee ee ee  _ 

BReSSRGESSELSSCSSSLE BAAR zAE 
s o-=m- ad | on==forc§go-= 


FUE 
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015446 011637 (SP) ,SLPERR 3;SAVE ERROR LOOP ADDRESS 
SESCAPC 4a ey THE ESCAPE FROM ERROR ADDRESS 
MO #1 , SERMAX Y ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: STSTNM,@DISPLAY i :DISPLAY TEST NUMBER 
MO SLPADR, (SP) ;;FUDGE RETURN ADDRESS 
TI i7FIXES PS 
SMXCNT: 2000. 33MAX. NUMBER OF ITERATIONS 
.SBTTL ERROR HANDLER ROUTINE 


DARIO ESE SIIOIOIIDIOI IIIS IIIO I IIIOIIIIIUIIIIUIUOIIOIUIO II IUD E tittn 
SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; EM NUMBER AND THE ADDRESS OF THE ERROR CALL 


s ERROR 
+ * THE SWITCH OPTIONS ie BY THIS ROUTINE ARE: 
*SW15= : HALT ON ERR 

+ *SW13=1 INHIBIT ERROR TYPEOUTS 

7*SwW10=1 BELL ON ERROR 

3 *SWO9=1 LOOP ON ERROR 

7*CALL 

* N 7 ERROR=EMT AND N=ERROR ITEM NUMBER 


015502 SERROR: 
TSTBIT,GUNITS 


7$: SERFLG + 3SET THE ERROR FLAG 
7$ DON'T LET THE FLAG GO TO ZERO 
STSTNM,@DISPLAY : :DISPLAY TEST - emt AND ERROR FLAG 
+ hd cree 


3 


Fee ee ee ee nt ee en te eee eee te 


“We 2 SS SS os oo fl 


;;COUNT THE NUMBER OF ERRORS 
3;GET ADDRESS OF ERROR INSTRUCTION 
3zSTRIP AND SAVE THE ERROR ITEM CODE 

#B1T13,aSWR 3;SKIP TYPEOUT IF SET 

20$ 33SKIP TYPEOUTS 

PC ,SERRTYP 3:G0 TO USER ERROR ROUTINE 

-SCRLF 

iE <4 rer. - SENV 


00100 2 
113737 015626 SITEMB. 218 tiSet 
004737 PC, SATY +:REPORT FATAL ERROR TO APT 


0 

0 

22s 

aSwR 

3$ 
#81T09,aSWR 


4 ** 
SLPERR, (SP) = OR LOOPING 
SESCAPE ey ESCAPE ADDRESS 


5 
013716 SESCAPE , (SP) 33 FUDGE RETURN ADDRESS FOR ESCAPE 
022737 } WSENDAD,a#42 =; ;ACT=11 AUTO-ACCEPT? 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


.¢ 
(1 
(1 
q 
(1 
(1 
(1 
(1 
(1 
1 
1 
qd 
qd 
1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
1¢ 
(1 
(1 
(1 
qd 
« 
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CVADAB.P11.—s«-17=JUL=78 00:00 OR HANDLER ROUTINE SEQ 0067 
(1) 015676 001001 BNE 6$ BRANCH IF NO 
(1) 015700 000000 HALT YES 
(1) 015702 6$: 
(1) 015702 000002 RTI + ;RETURN 
1461 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) FRR ARERR EERE REE RE RERR ERE ARARERE ERR REERERRERERE RR RRER EEE 
(1) <STHIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEMB) TO DETERMINE WHICH 
(1) t*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ (SERRTB), 
a) S®AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 015704 SERRTYP: 3 
(1) 0157046 104401 001171 TYPE  ,$CRLF | rz''CARRIAGE RETURN’ & "LINE FEED 
(1) 015710 010046 MOV RO, -(SP) T:SAVE RO 
(1) 015712 005000 CLR RO ::PICKUP THE ITEM INDEX 
(1) 015714 153700 001114 BISB aFSITEMB,RO 
(1) 015720 001004 BNE 1$ ::1F ITEM NUMBER IS ZERO. JUST 
(1) +:TYPE THE PC OF THE ERROR 
(2) 015722 013746 001116 MOV SERRPC,~(SP) SAVE SERRPC FOR TYPEOUT 
(2) RROR ADDRESS 
(2) 015726 104402 TYPOC 3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 015730 000426 BR 6$ OuT 
(1) 015732 005300 1$: DEC RO ; ADJUST THE INDEX SO THAT IT WILL 
(1) 015734 006300 ASL RO +: WORK FOR THE ERROR TABLE 
(1) 015736 006300 ASL RO 
(1) 015740 006300 ASL RO 
(1) 015742 062700 001256 ADD #SERRTB,RO ::FORM TABLE POINTER 
(1) 015746 012037 015756 MOV (RO)+,2$ ‘PICKUP ‘ERROR MESSAGE’’ POINTER 
(1) 015752 001404 REO 3$ ::SKIP TYPEQUT IF NO POINTER 
(1) 015754 104401 TYPE ::TYPE THE ‘ERROR 
(1) 015756 000000 23: .WORD 0 "ERROR MESSAGE’’ POINTER GOES HERE 
(1) 015760 104401 001171 TYPE  ,S$CRLF 7ICARRIAGE RETURN'' & "LINE FEED" 
(1) 015764 012037 015774 38: MOV (RO)+,4$ *:PICKUP ‘DATA HEADER'’ POINTER 
(1) 015770 001404 BEQ 5$ ::SKIP TYPEOUT IF 0 
(1) 015772 104401 TYPE i: TPE THE "DATA HE , 
(1) 015774 000000 48: .WORD 0 :'DATA HEADER’ POINTER GOES HERE 
(1) 015776 104401 001171 TYPE  ,S$CRLF 77°'CARRIAGE RETURN'' & ‘LINE FEED" 
(1) 016002 011000 5$: MOV (RO) .RO + PICKUP “DATA TABLE’ POINTER 
(1) 016004 001004 BNE 7$ +:GO TYPE THE DATA 
(1) 016006 012600 68: MOV (SP) +,RO [:RESTORE RO : 
(1) 016010 104401 001171 TYPE  ,$CRLF +: CARRIAGE RETURN’' & "LINE FEED 
(1) 016014 000207 RTS PC +: RETURN 
(1) 016016 7$: 
(2) 016016 013046 MOV @(RO)+,-(SP) SAVE @(RO)* FOR TYPEQUT 
(2) 016020 104402 TYPOC [GO TYPE=-OCTAL ASCITCALL DIGITS) 
(1) 016022 005710 TST (RO) 3318 THERE ANOTHER NUMBER? 
(1) 016024 001770 BEQ ‘$s :BR IF NO 
(1) 016026 104401 016034 TYPE 8$ 73 TYPE TWO(2) SPACES 
(1) 016032 000771 BR $ iL 
(1) 016034 020040 000 8S: ASCIZ / / +*TwO(2) SPACES 
(1) 016040 “EVEN 


RR RR RAR ARR RAO ORE 


eee me ee ee eee ee ee ee ee ee ee ek ed ed ed ed td 8g od st ot 8 
a a a a a a A ttt tt ttt ttt 


Ce ee ee te te ee ee ae, i a et ee, et a, a a, a a, a a a a 


MAINDEC-11-DVADA-8 
° 17-JUL-78 


105737 
100002 


MACY11 30A(1052) 
00:00 T 


001157 


000002 
000001 


000100 


016110 
016330 


000040 


016316 
001154 
000001 


016252 
016316 
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SEQ 0068 


-SBTTL TYPE ROUTINE 


SRR REAR RAER RRR EERE REE RRR ARERR ARR EE R RRR AER REE E RR 


® #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 


>*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

> *NOTE1: SNULL CONTAINS THE CHARACTER " BE USED AS THE FILLER CHARACTER. 
;*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

+ 


Daly YPE »MESADR ;z;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
* TYPE 
* ME SADR 
* 
TYPE: TSTB STPFLG 7321S THERE A TERMINAL? 
BPL 1$ ;7BR IF YES 
HALT ;ZHALT HERE IF NO TERMINAL 
BR 3$ + sLEAVE 
1$ MOV RO,-(SP) RO 
MOV a2(SP),RO 3:GET ADDRESS OF ASCIZ STRING 
CMPB #APTENV, SENV 7 RUNNING IN APT 
BNE 62$ 32NO,GO CHECK FOR APT CONSOLE 
BITB #APTSPOOL ,.SENVM ;;SPOOL MESSAGE TO APT 
BEQ 62$ 23NO, GO CHECK FOR CONSOLE 
MOV RO,61$ > SETUP MESSAGE ADDRESS FOR APT 
JSR PC, SATY3 +: SPOOL MESSAGE ~ APT 
1$: -WORD 0O 7 MESSAGE ADDRESS 
62$: B1TB #APTCSUP,SENVM ;;APT CONSOLE a 
BNE 60$ +: YES, SKIP TYPE OU 
23: MOVB (RO)+,-(SP) + PUSH CHARACTER 4 BE TYPED ONTO STACK 
BNE 4$ ;7BR IF IT ISN'T THE TERMINATOR 
TST (SP)+ 371 TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO 7 RESTORE RO 
$: ADD #2, (SP) ; ADJUST RETURN PC 
RTI 7 RETURN 
4$: ue #HT, (SP) 7 73RANCH IF <HT> 
_ peace 7 BRANCH IF NOT <CRLF> 
TST (SP)+ 77POP <CR><LF> EQUIV 
YPE 77 TYPE A CR AND LF 
SCRLF 
CLRB SCHARCNT 7: CLEAR CHARACTER COUNT 
BR 2s 7:;GET NEXT CHARACTER 
5$: JSR PC .STYPEC 3;GO0 TYPE THIS CHARACTER 
6$: CMPB SFILLC,(SP)+ zz1S IT TIME FOR a CHARS .? 
BNE 2s z71F NO GO GET NEXT CHAR, 
MOV SNULL .~ (SP) 3:GET # OF fig. CHARS. NEEDED 
7ZAND THE NULL 
7$: DECB 1(SP) 7;DOES A NULL NEED To BE TYPED? 
BLT 6$ 77BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC .STYPEC 3;G60 TYPE A NULL 
DECB SCHARCNT 72:D0 NOT COUNT AS A COUNT 
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000770 BR 7$ 3 LOOP 
;HORIZONTAL TAB PROCESSOR 


112716 000040 8$: MOVB #* ,(SP) ;;REPLACE TAB WITH SPACE 
004737 9$: PC, STYPEC si TYPE A A SPACE 
016316 #7, SCHARCNT BRANCH IF NOT AT 
BNE 9$ ::TAB STOP 
(SP) + :;POP SPACE OFF STACK 
BR 2$ 3;3GET NEXT CHARACTER 
162672 : Rt a$TPS ;;WAIT UNTIL PRINTER IS READY 


STYPEC 
000002 2(SP) ,aSTPB 7;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 #CR,2(SP) 3231S CHARACTER A CARRIAGE RETURN? 
BNE 1$ ; BRANCH IF NO 
016316 oh $244 “tana CHARACTER COUNT 


I 
000012 18: 1S CHARACTER A LINE FEED? 
STYPEX 7 BRANCH IF YES 
INCB 7; COUNT THE CHARACTER 
SCHARCNT : . WORD 7 CHARACTER COUNT STORAGE 
STYPEX: RTS 


-SBTTL APT COMMUNICATIONS ROUTINE 


WTTTTTTIITELITTT TTT TTL 
#1, SFFLG 72TO REPORT FATAL ERROR 
#1. SMFLG 3;TO TYPE A MESSAGE 


SATYC 
#1, SFFLG 3:TO ONLY REPORT FATAL ERROR 


RO.-(SP) 7 PUSH RO ON STACK 
R1,~(SP) ;7PUSH R1 ON STACK 
ets 5 Ts i * | A MESSAGE? 
~ ieee onmaed poe UNDER APT? 


—_ 
~— 


Ce ae Ee Tate tae ate an hat tat tee in he at i i 
ee a ed os od nd = = I 
eee eee ee ee le ee ae le a a ee eae ee ae 


z 


Ct oe he ee ae ee ed 


1) 
2) 
1) 
1) 
1) 
1) 
1) 
3) 


SER IND END OF MESSAGE 


¢3Su8 START OF MESSAGE 

T MESSAGE LNGTH IN WORDS 
:IPUT LENGTH IN MAILBOX 
7;TELL APT TO TAKE MSG, 


727PUT MSG ADDR IN Bh LINKAGE 
77PUSH 1559 % ON STACK 
*:CALL TYPE MACRO 


nA RAR AAA RR RA RA ARAAA 
kk kk tk et nk at ot ot tt 
SN ee hd hh a 
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5$: 
105737 016566 10$: SFFLG 4 ee REPORT FATAL ERROR? 
12 s71F NOT: BR 
; ; [RUNNING UNDER APT? 


12$ :1F NOT: BR 
118: :iF INISHED yf | MESSAGE? 


Z:GET ERROR # 
TURN ADDR. 


;BUMP RE 
Zi TELL APT TO TAKE ERROR 
[CLEAR FATAL FLAG 
[CLEAR LOG FLAG 
37 CLEAR MESSAGE FLAG 
::POP STACK INTO R1 
POP Stack INTO RO 


SMFLG: 
$LFLG: : 
SFFLG: + «FATAL FLAG 


APTSIZE= 300" 
APTENV=001 

APT SPOOL =100 
APTCSUP=040 
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.-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


PRARARRR AA RARAAAAA AAA AAT ATTA TATA AAA A TARA ATA A AAA AAR ARATE 

SRTHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND TYPE IT 

i sSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, = (SP) ;;NUMBER TO BE TYPED 
7:CALL FOR TYPEOUT 
3z:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
33M=1 OR O 
321=TYPE LEADING ZEROS 
;0=SUPPRESS LEADING ZEROS 


:*$TYPON=-=--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
: *$TYPOS OR $TYPOC 

>*CALL: 

;* MOV NUM, = (SP) ; NUMBER TO BE TYPED 

;* TYPON 72CALL FOR TYPEOUT 


+ 
i ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUM, = (SP) 7; ;NUMBER TO BE TYPED 
YPOC ;7CALL FOR TYPEOUT 


a(SP) ,~(SP) 33PICKUP THE MODE 
7;LOAD ZERO FILL SWITCH 
3 NUMBER OF DIGITS TO TYPE 
7; ;ADJUST RETURN ADDRESS 


SET THE ZERO FILL SWITCH 
:3SET FOR SIX(6) DIGITS 
WV ‘aon ITERATION COUNT 


ii SAVE RS 
ier R5 
T THE NUMBER OF DIGITS TO TYPE 


hh yee IT FOR MAX. ALLOWED 

: 7 SAVE IT FOR USE 

32GET THE ZERO FILL SWITCH 
INPUT NUMBER 


38 


L PUT WORD 
{ROTATE MSB INTO “C" 
3360 DO MSB 

SIFORM THIS DIGIT 


005003 
000404 


Be 
SSS 


Ses 
coogi 


- 
S 
= 


7$ 
#177770,R3 
4$ 


38 


(1) 
1) 
(1) 
(1) 
(1) 
1) 
(1) 
1) 
(1) 
(1) 
(1) 
(1) 
1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


Rae 
o-~ 


RG 
“$ 


8 
S 
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4$: R4 ;;DON'T SUPPRESS ANYMORE 0'S 
: sMAKE THIS DIGIT ASCII 
5$: * ae MAKE ASCII IF NOT ALREADY 
MOVB : SAVE FOR TYPING 
8 :GO TYPE THIS DIGIT 
017012 7$: :: COUNT BY 1 
BG es BR IF MORE TO DO 


BR IF DONE 
: INSURE LAST oie ISN'T A BLANK 
DO THE LAST DIGIT 


;RESTORE R3 
37SET THE STACK FOR RETURNING 


7 RETURN 
STORAGE FOR ~ yl DIGIT 
7 TERMINATOR FOR TYPE ROUTINE 
;7OCTAL DIGIT wer ER 
ZERO FILL SWITCH 
7 ;NUMBER OF DIGIT 


SOCNT: . 
SOFILL: .BYTE 
SOMODE: .WORD 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


nt a SS i I YH YH YS 
ee ee eee ae ae es a 


ooo°o°o 


S TO TYPE 
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.SBTTL BINARY TO ASCII AND TYPE ROUTINE 


LURE AAAAAAAAAAAAAAAAAAA TATE AARARARAERAARERARAEHR AA RARHA HERA EES 
;*THIS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER TO A 16-81T 
oe, NUMBER AND TYPE IT. 

** : 


MOV NUMBER , = (SP) 7 NUMBER TO BE TYPED 
TYPBN si TYPE IT 


010146 : R1,~(SP) 72SAVE_R1 ON THE STACK 
016601 6(SP),R1 23GET THE INPUT NUMBER 
iSET *'C’’ SO CAN KEEP TRACK OF THE NUMBER OF BITS 
#'0,$B1N TISET ance H TO AN ASCII *0"'” 
ph :iGET THIS BIT 
$BIN :INDwSET ne | pele EQUAL TO THIS BIT 
-SBIN $3 eA YPE THIS BIT 
sCLEAR *T*’ SO ~~ =e TRACK OF BITS 
1$ $360 DO THE NEXT BIT 
(SP)+,R1 7;POP THE STACK INTO R1 
2(SP) ,4(SP) ;7ADJUST THE STACK 
(SP) +, (SP) 
5} O USER 


URN T 
0.0 STORAGE FOR ASCII] CHAR, AND TERMINATOR 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


eee ee eee eee eee les ae ae es ie ae 
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.SBTTL TRAP DECODER 


;SeReeeeneneeneeneeneneeereteneenneteneneeneasenentaeenesesenees 
*STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
SAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
S*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


CKUP BY 2 
:i6e1 RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
$ FINDEX 10 TABLE 
3:G0 TO ROUTINE 


STRAP2: MOV (SP) ,=(SP) 
MOV 4(SP) ,2¢SP) 
RTI 

-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS ~ STARTING ADDRESSES OF THE ROUTINES CALLED 
;°BY THE “‘TRAP’’ INSTRUCTION, 


ON et st et ts ss 
ee ee eee ee ee ee eee ee eee ee ee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


$TRPAD: STRAP2 
7c CALL =TYPE TRAP +1(1 1) TTY TYPEQUT ROUTINE 

77 CALL =TYPOC >) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

7; CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 


) 
3 CALL=TYPON TRAP+4(104406) TYPE OCTAL NUMBER (AS PER LAST CALL) 
33 CALL =TYPGN TRAP*S (104405) TYPE BINARY (ASCII) NUMBER 


TTY TYPEIN CHARACTER ROUTINE 
>) TTY TYPEIN STRING ROUTINE 
se CALL 19 READ AN OCTAL NUMBER FROM TTY 
TTCALL= CHECK 
77 CALL =CMKIT i? 
7 CALL =TYPOC TRAP+ 13(1 ) 


ENSERR = SSEKSS 





K_ 6 
MA INDE C-11=DVADA-8 MACY11 30A(1052) 25=JUL=78 15:54 PAGE 53 
CVADAB.P11 17-JUL=78 00:00 _ TRAP TABLE 


1475 .EVEN 
1476 017156 000310 DIST: .BLKW 200, ;STATE“WIDTH DISTRIBUTION 
pg ha 017776 010000 BUFFER: .BLKW 4096. ;BUFFER AREA 


1479 000001 END 
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CVADAB.P11 17=JUL=78 00:00 S REFERENCE TABLE == USER SYMBOLS SEQ 0076 


ABASE = 170400 78 
ACDWi = 
ACDW2 = 


ACPUOP= 
ADBUFF 001322 11 369 379 390 S16 44 454 507* 
782* 796* 798 837* 865* 876 909« 


css 


ie 


Abus 
ADD 
ADDwS 
ADD WO 
ADDW?7 
ADDW8 
ADDW9 
ADEVCT 


13564 


NN 


— 
i eladveieed 
~_™~w 


wy INNS 


+ a 
oo 
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014335 


12204 
1048 1063 1075 1128 1220 13914 


249 250* 265* 791% 1459s 
1028 1030* 

182* 1078 1131 

8634 
1470 1472 1473 

254* 1460* 
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1554 
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1051 
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1130 
14474 
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1218 
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CVADAB.P11 
RELACC 010244 
REST1 002216 
RESVEC= 000010 
T 007104 
RETERR 004124 
RETURN 001 
RET1 001630 
RET2 001634 
RMS 1404 
RNA 001376 
RNB 001400 
RNC 001402 
RST 11 
SARSUB 007110 
SAR1 007134 
SEL 12304 
SETCH 012154 
SETMSG 012023 
SETIA 
SHIFT 007272 
SKIPST Brisne 
SLASH 012243 
SPACE 012134 
SPREAD 001412 
STACK = 001100 
STATE 012111 
STKLMT= 177774 
STREG 001316 
SWOIST 010162 
SwWR 001140 
SWREG 000176 
SwO = 000001 
swoO = 000001 
swO1 = 000002 
SWO2 = 000004 
swO3 = 000010 
SwO4 = 000020 
swoS = 000040 
SwO6 = 000100 
SWwO7 = 000200 
SwOB8 = 000400 
Swo9 = 001000 
SW1 = 000002 
SW10 = 002000 
SW11 = 004000 
SW12 = 010000 
SW13 = 020000 
SW14 = 040000 
Sw15 = 100000 
SW2 = 000004 
SW3 = 000010 
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Sw9 001000 
TADDR 001374 994 743% 752s 
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1024 10284 
14708 


782 
720* 783* 


803* 804* 
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FoORe 
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FZISIE 
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1249* 1250 1450 1451 
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CVADAB.P11-17=JUL=78 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0085 
SMAMS1 001224 37" 
SMAMS2 001230 374 
SMAMS3 001234 378 
SMAMS4 001240 374 
001002 
SMFLG 016564 1464a* 
SMNEW 015111 14558 
$MSGAD 001210 378 1464s 
$MSGLG 001212 37" (14648 
SMSGTY 001174 37" 14648 
015100 14554 
SMTYP1 001225 379 
SMTYP2 001231 374 
SMTYP3 001235 378 
SMTYP4 001241 378 
SMXCNT 015500 14598 
L 001154 37" 1463 
$NwTST= 1 2 283¢ 2898 «2944 «= «98H «= 3034 = 07H =—s315#@ 03238) 3274@ i 3387H8GGe 


2704 79" 2 
3554 3654 372" 3834 3954 4174 4304 4aie 4704 4794 487# Patel 5064 
5194 5344 5624 5904 6114 


SOCNT 017012 14664* 
017014 14664" 

SOVER 015464 14594 

SPASS 001202 37" 163* 238* 612 1261 1271 1358* 1459 

SPASTM 001006 364 

S$ 001170 374 667 1455 1460 1463 

SRDCHR 014630 14554 1470 

SRDDEC= seeeee 1470 

SRDOLIN 014750 14554 1470 

SRDOCT 015122 14574 1470 

SRDSZ = 10 14554 

SRTNAD 011776 13584 

SR2A = seneee 1470 

SSAVRE= seeee2 1470 

SSCOPE 015224 163 14594 

SSE TUP= 7 384 163 1358 1455 1459 1460 

SSTUP = 1 38a 

SSVLAD 015430 14594 

Ssur = 167400 a7 tis i 70 79 3 89 303 «307 
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sis 33887 Sea $38 63 $73 nn rs} ars ec 
470 479 487 494 506 19 534 590 611 1358 1459 1460 

SSWREG 001216 37a 163 

SWwRMK= 000000 3 1459 

STESTN 001200 # 1459« 

STIMES 001160 37a 163« oe 338« 355e 470* 479* 487* 4948 506* 519« 535« 562* 
590* 6lle 1358* 1459¢ 

$TKB 001146 7a 127 34 647 1455 

STKS 001144 a 1698 3e <S. 331« 3410 3e le . 8+ 1 1354" 1455 

S™N §©_= 000040 ‘74 35) Ay rd $9 7a 1 3154 4 
32 a 3 37a 4a 5Sa Sa Co 383a 39S 
ake Sone 603 are 443a 4704 4798 4874 49484 5064 51 531 53am 

$TPB 0011 e 61 a7 ¢  1463¢ 

S1PFLG 0118? ed 1463 

$T 001150 27# =§=61296 1306 1463 
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Sa 
td 
Os 
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ERRORS DETECTED: 0 


CVADAB , eet ee 
RUN-TIME: 28 11 1 SECONDS 
RUN-TIME RATIO: 4127.8 
CORE USED: 26K (51 PAGES) 
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